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uita gente tern not atcrito a propd- 
sito do Congresso National da 
SUCESU a da tau sagmento da mi- 
croinformitica. anunciados am primaira 
mao no editorial da revista nP 54. 

Oenominado MICROINFO, o segmen- 
to dedicado a micro in format tea buscari, 
atravis de urn encadaamento planajado das 
palastras, nSo sd introduzir farramantas 
para selagio a utilizagio dot micros Icomo 
"Linguagens de programegto ", prof. Paulo 
Bianchi; "Planilhas Elatrinicas", Charles 
Girdwood; “Cornu nicagto da dados”, Leme 
Lopes; "Processadores da Taxto”, Luiz 
Fraderico da Cunha etc.), mas tamMm abor- 
dar as families da micros present as no mer- 
cado brasilairo (" IBM -PC XT”, Nelson 
Couteiro; "IBM -AT", Sirgio Barbosa; 

"Apple", Stephen Kovaks; "TRS-BO", Pierre 
Jean Lavelle; " TRS-Color ", Marcel Fontou- 
re; "Sinclair”, CHudio Bittancourt; “MSX". 
Pierluigi Piazzi a "Macintosh”, com prof. 
Antonio Costa). AHm ditto, tario ainda 
abordados femes atuais como " Computagao 
Grifica", Jaime Nitambaum; "Radas de 
Micros", Amaury Moraes Jr.; "Ligagio Mi- 
cro x mainframe", Pedro do Livramento; 
"Micro e o Centro de InformagBas". Fernan- 
do Moutinho; "Programegto da Jogos". 
Rena to Degiovani; "Software Educacional”, 
Oscar Burd ou "Sistamat E special istas". 
com o prof. Emmanuel Lopes Passos, an- 
tre outros assuntos. 

Voci deve ter notado que muitot dot pa 
lestrantes convidados para o MICROINFO 
tio conhecidos — a habituais — colaborado- 
ret da revista MICRO SISTEMAS. E muitot 



dates tim tamMm sa langado como autoras 
de livros. Neste mis, gostaria da enviar 
maus votos de sucesso a asses amigos Isa por 
acaso eu esquecer algukm, pago qua me 
record em). Na editors McGraw-Hill traba- 
them Josi Eduardo Malufde Carvalho ("Ba- 
sic avangado para o TK90X”) e os amigos 
Oscar Burd e Luiz Sirgio Moreira, que tim 
divarsos projetos voltados para a linha MSX. 
Na Campus, uma das editorat mais ativas 
da irea. estSo Nelson Santos ( editor da Cam- 
put a autor do livro " Alim do BASIC"); Raul 
Udo Christmann I" Visitrend/Vitiplot "); 
Faust o de Almeida Barbuto (“35 progra 
mas BASIC"); Mauricio Costa Reis ("Sirie 
Usuirios"); Jorge da Cunha Pereira Filho 
I autor de "Basic Bisico"); Emmanuel Lopes 
Passos (“Micro e minicompu t adores brasi- 
leiros"); Rafael Sommerfald e Evandro 
Mascarenhas de Oliveira, estat doit com 
obras a caminho. Atuam ainda na irea o 
prof. Eduardo Chaves, da notsa segao 
Iniciante, qua assina o livro "Micro- revela- 
ghat", pete Cartgraf a Pierluigi Piazzi, autor 
da diver sos tftulos a dono da Editors 
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MICRO SISTEMAS A uma publicapio mensal da 
AnAlise. Teleprocessamento e InformAtica Edi- 
tors Ltda. 

Enderepos: 

Rua Oliveira Dias, 153 Jardim Paulista SSo Pau- 
lo/SP - CEP 01433 - Tels (011) 853 3800 e 881 5668 
Iredapio) 

Av. Pres. Wilson, 165 grupo 1210 Centro Rio de 
Janeiro/ RJ Tel 1021) 262 6306 



O sorteado deste mes, que recebera uma 
assinatura anuai da rewista MICRO 
SISTEMAS, 6 Cleiber Roggrio Rcxirigues, 
de Itumbiara - GO. 



ESTATISTICA APLICADA 

Digitei todas as partes do programa "Esta- 
tfstipa Aplicada”, desde o n 9 44 de MS at4 o 
48. O programa, ponforme os v£rios exemplos 
apresentados, roda bem, com excepao da parte 
"Regressoes e correlapoes nao lineares", que 
apresentou erro A /31 28. 

Substituindo-se a linha 3128 por3128 LET 
SLY2 = SLY2 + LN <(T(I>**2) A apresentada 
uma tela, como indicado na figura 2, pAg 24, 
do n 9 48 de MS. Por4m, os valores de R (coe- 
ficiente de determ inapao) aparecem alterados, 
ou seja: Exponencial, R = 48 138011, Geom£- 
trica - 2.368061 1 ; e Parabola, R = 6.4384861 , 

Face ao exposto, gostaria de obter o pro- 
nunciamento do autor do artigo, pois utilizei 
um microprocessador modelo TK85 com 48 
Kb e NE Z-8000 com expansao de 16Kb, 
nao conseguindo resultados satisfatdrios. 

Miguel De Crescenzo 
Sao Paulo — SP 

Prezado Miguel, de acordo com nosso pro- 
cedimento habitual, enviamos sua carta ao au- 
tor do programa. A i esti sua resposta: 

"O programa, tat como foi listado na revis- 
ta, realmente apresenta problemas, quando o 
valor de um dado (variAvel I) A menor que a uni- 
dade. 

O problems ocorre devido ao logaritmo de 
um numero menor que 1 resultar num valor 
negativo, causando erro do tipo A. Para contor - 
nar a situagao, basta substituir a linha 3128 
do programa por 3128 LET SLY2=SLY2+LN 
Till * LN Till. 

A mesma alteragao deve ser feita na linha 
3122, ficando assim: 

3122 LET SLX2=SLX2+LN Will * LN W(l>. 

Meus agradecimentos pela constatagao, ji 
que nos meus testes os valores sempre foram, 
casualmente, maiores que a unidade." 

Raul Udo Christmann 
Porto A legre — RS 



SOS AOS LEITORES P 

Preciso de ajuda com um Atari XLamerica- 
no que, ao que me parece, possui o circuito de 
modulapaO para o sistema Ingles incompleto, 
faltando um Cl. Assim, caso algum leitor possua 
seu esquema ou saiba modific4-lo, gostaria de 
saber como faz§-lo. Qualquer correspondence 
para o CTA — IAE — EIC, Av. Paraibuna S/N. 
Claudio Henrique de Castro 
Sao Jos£ dos Campos — SP. 

correspondence fit 

O Stnclair-Sul Club, entidade sem fins lucra- 
tivos, oferece aos usuJrios de microcomputado- 
res TK85 e TK90X, ou compatfveis, grande 
acervo de programas ingditos para trocas. 
Oferecemos tamtam um intercambio de infor- 
mapfies t6cnicas. Cartas para Eng9 Gilson Perei- 
ra, Rua Duque de Caxias, 188, CEP 96200. 
Gilson Pereira 
Rio Grande — RS 



Adquiri recentemente um AP- 1 1 com 64 
Kb e gostaria de obter informapdes sobre a 
Area de C4lpulo de Estruturas de Conereto Ar- 
mado: edifieapoes, pontes e projetos rodovia- 
rios. Cartas para a Rua 88 ■ C, n 9 33, Setor Sul. 
Helofsa Gusmao Lima 
Goiania — GO 

Procuro algum elube onde eu possa fazer 
parte, adquirindo e apresentando programas de 
engenharia. As correspondenpias podem ser en- 
viadas para a Rua Tito Botelho Martins, 45/ 
402, Sao Bento. 

Luiz Carlos Ferreira Pacheco 
Belo Horizonte - MG 



MS AGRADECE P 

Primeiramente, como assinante de MS, 
parabenizo-lhes pelo excelente m'vel das mat4- 
rias publicadas, ressaltando "Cbpia de Progra- 
mas: Ataque”, publicada em MS n9 53. Acredi- 
to no futuro da informitica, mas s6 o vejo ser 
constitui'do por profissionais e nao por violado- 
res da criatividade alheia, ou seja, os plratas. 

Gostaria de me corresponder com usuSrios 
do TK90X e clubes especializados. Cartas para: ; 
Micro-Clube Pro-Work, A/C Cleiber RogGrio < 
Rodrigues, Rua Santa Rita, 2 9 andar, sala 21, i 
Cx. Postal 247, CEP 76.100. 

Cleiber Rog6rio Rodrigues 
Itumbiara — GO 



PONTO DE VISTA P 

Acho muito bom que se publiquem artigos 
como "O Padrao MSX”, de Oscar Julio Burd e 
Luiz Sfirgio Moreira, em MS n9 53. Mas, venho 
reparar o que considero uma injustipa pometida 
pelos autores e por muitos outros usuSrios de 
micros. 

Eles citaram o Apple (e consequentemente 
seus compativeisl como "o micro que mais se 
aproxima dos MSX". Ser£ que sabem que o 
TRS-Color Computer, carinhosamente chama- 
do de CoCo, com diversos compatfveis nacio- 
nais como o CP 400, Codimex e Color-64, 
tamb6m possui tres microprocessadores como 
os MSX? Sabem eles que sem qualquer alterapao 
de hardware, o CoCo pode gerar sons em quatro 
canais simultaneos, em oito oitavas, e 31 gra- 
duapoes de volume, aldm de vSrias outrasoppoes 
e de simular diversos instrumentos? 

Sabem que o TRS-Color \A tern um grande 
numero de adeptos em todo o mundo, eom mi- 
Ihares (6 isso mesmo: milhares) de programas; 
v£rios sistemas operaeionais, como o FLEX/ 
UNIX; linguagens como BASIC, C, FORTRAN, 
Pascal, Assembler, LISP, LOGO, COBOL etc.; 
dezenas de perifgricos, como drives, gravadores 
especiais, joysticks, impressoras, modems (o 
CoCo \A vem com interface RS 232-C), cartu- 
chos, monitores, caneta 6tica, mesa digitaliza- 
dora, digitalizador de imagens, plotters etc.? 

Sabem ainda que, por ser de uma tecnologia 
mais moderna (a ultima de 8 bits, \A com carac- 
terfsticas de 16), seu prepo A bem menor que 
o dos mieros anteriores? 

Adriano de Arruda Botelho 
Amparo — SP 



Envie sua correspondence para: ATI — Anilisa, 
Teleprocessamento a Informitica Editora Ltda., 
Av. Presidenta Wilson, 165 /gr. 1210, Centro, 
Rio de Janeiro/ RJ, CEP 20030, Sepio Cartas/ 
Redapao MICRO SISTEMAS. 
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O APPLE DA DIGITUS 



A DIGITUS langa o DGT-AR um 
microcomputador pessoal totalmente 
compativel em hardware e software con 
a linha APPLE II PLUS e seus similares. 

0 DGT-AP e um micro versatil, pois, alem 
de the ser util no trabalho, voce podera 
tambem usa-lo no lazer e nos estudos. 

Devido ao grande numero de program® 
desenvolvidos para a linha APPLE, o Dp 
AP tern ampla aplicagao tanto para a$' 
pequenas e medias empresas como par 
os executivos e os profissionais liberarig 
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Projetado para atender e acompanhar o 
desenvolvimento do usuario, o DGT-AP 
possui estrutura para aceitar futuras 
expansoes, crescendo de acordo com 
suas necessidades. 

O DGT-AP tern todas as caracteristicas 
basicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 
numerico reduzido incorporado a CPU. 

Alem de todas as placas disponiveis para 
expansao, voce tern ainda a garantia da 
tecnologia DIGITUS. 

Conhega o DGT-AP nos enderegos abaixo 
e nos revendedores autorizados DIGITUS. 



MATRIZ: Rua Gavea, 150 - Jardim America • Fone: (031) 332.8300 - Telex: 3352 • 30430 - Belo Horizonte • MG 
RIO DE JANEIRO: Rua Barata Ribeiro. 391 si. 404 - Copacabana - Fone: (021) 257 2960 
SAO PAULO: Rua Faxina, 47 - Centro ■ Fone: (Oil) 572.0137 





Apple ou TRS-80, qual escolher? A resposta nao e das mais faceis. 
D£ uma lida nesse artigo e tire suas proprias conclusoes. 






O duelo dos oito bits 

A! do Feh'cio Naletto Junior e Arnaldo Napolitano Sanches 



Q uern 6 melhor, Apple ou TRS-80? Desde 1976, 
ano em que os primeiros modelos das duas familias 
foram lan$ados, esta pergunta tem ocorrido a mi- 
lhares de futuros compradores, jd proprietaries e 
etemos curiosos. Na realidade, nao existe uma unica resposta 
para essa questao. Como tudo nesse mundo, cada uma dessas 
familias apresenta seus pr 6 s e contras. 

Neste artigo, procuraremos enfocar os aspectos mais impor- 
tantes das duas, expondo seus pontos mais fortes e tambdm 
suas mancadas mais notdveis. Como nSo 6 possi'vel abranger 
tudo de uma s 6 vez, a compara^ao sera feita em tres grandes 
tdpicos: linguagem residente, hardware e sistema operacional. 
Aldm disso, serSo mostrados tambem quadros comparativos 
confrontando, as caracteri'sticas das duas linhas nos dois pri- 
meiros topicos. Nao serd feito um quadro comparative dos 
sistemas operacionais, devido a grande quantidade e comple- 
xidade dos diversos sistemas existentes. Caso voce pretenda 
se aprofundar no assunto, recomendo a leitura das references 
dois ate nove da bibliografla, no fim deste artigo. 

LINGUAGEM RESIDENTE 

Tanto o BASIC do TRS-80, quanto o do Apple foram pro- 
duzidos pela Microsoft. Esta competente softhouse americana 
criou para computadores CPM o MBASIC, um muito bem feito 
(e depurado) interpretador BASIC, isso nos prim 6 rdios da era 
dos microcomputadores. Tendo sido contratada pela Apple 
e pela Tandy para substituir os ti'midos BASIC originais de suas 
mdquinas por interpretadores mais sofisticados, a Microsoft 
tratou de aproveitar o maximo que pode do MBASIC nos pro- 
dutos destinados aos seus novos clientes. Devido, pordm, is 
diferentes caracteri'sticas de hardware das duas mdquinas, e 
tambem a posteriores modificafSes feitas pela prdpria Apple 
no seu interpretador, os resultados finais foram bastante diver- 
sos. 

Uma vez que o Z-80 e uma versSo aperfei?oada do 8080 
(microprocessador para o qual o MBASIC foi escrito), a 



Microsoft teve pouco trabalho para escrever o BASIC do 
TRS-80: bastou cortar alguns comandos do MBASIC e trocar 
as instru 96 es JP do 8080 pelos saltos relativos do Z-80 (onde 
possi'vel), para que o interpretador coubesse nos 12 Kb de 
ROM dispom'veis. Ji no Apple, cujo microprocessador (o 
6502) 6 radicalmente diferente do 8080, todas as rotinas tive- 
ram de ser reescritas. Em consequencia, a depurai;5o do BASIC 
do TRS-80 6 bem melhor - praticamente a mesma do MBA- 
SIC. Alem disso, com a finalidade de deixar espafo para os 
comandos grdficos, todo o BASIC do Apple foi bastante sim- 
plificado, resultando em um interpretador bem inferior ao do 
TRS-80. Os pontos em que o BASIC do Apple leva vantagem 
sob re o do TRS-80 sSo os seguintes: 

Velocidade - Indiscutivelmente esta 6 uma zebra, pois o clock 
do TRS-80 Mod III 6 cerca de duas vezes maior que o do 
Apple. Embora haja atenuantes, no caso que tendem a equili- 
brar as coisas (tais como a maior complexidade do BASIC 
do TRS-80, a necessidade de mais ciclos de clock por instru- 
950 no Z-80 e o sistema de leitura de teclado, por software no 
TRS-80 e por hardware no Apple), 0 fato t que o BASIC do 
Apple 6 realmente mais eficiente em termos de velocidade. 
Isso 6 mais notdvel nas opera 9 des aritmeticas basicas, que che- 
gam a ser duas vezes mais rdpidas. 

Organiza 9 ao de Memdria - os usuirios do TRS-80 s 2 o obriga- 
dos a especificar atravds do comando CLEAR quantos bytes 
serSo reservados para o armazenamento de strings. No Apple, 
isso n 2 o e necessario, pois o sistema automaticamente reserva 
para esta finalidade toda a memdria livre. Esta abordagem 6 
bem mais feliz que a do TRS-80, tanto assim que foi adotada 
em todas as versOes mais recentes do pr 6 prio MBASIC. 
Comandos Grificos - em vista dos varios modos grdficos dis- 
pom'veis no hardware do Apple, era mesmo de se esperar que 
seus comandos grdficos fossem mais numerosos que os do 
TRS-80. Mas a vantagem do Apple nSo 6 somente devido i 
maozinha do hardware: seus comandos grdficos sSo realmente 
melhores, fazendo coisas tais como tra 9 ar linhas e 
desenhar figuras em alta velocidade a partir da tabela de 
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formas, com angulo e tamanho controlaveis pelo usuario, o 
que decididamente n5o depende do hardware do equipamento. 
Conexao com Rotinas Assembler - os comandos CALL e 
8t do Apple s5o 6timos para a ligafSo de programas em BASIC 
com rotinas em Assembler, tanto que compensa largamente o 
fato da funfSo USR do Apple ser bem menos completa que a 
do TRS-80. Outra vantagem do Apple vem da boa divulgaf^o- 
que a Apple Computer Inc deu 4s rotinas do sistema operacio- 
nal/monitor Assembler (ultimos 2 Kb da ROM) - o User 
Reference Manual fornecido pela Apple trazia inclusive a lista- 
gem fonte destas rotinas, algo inimaginavel para nos, consumi- 
dores tupiniquins. 

Do lado do BASIC do TRS-80, os pontos mais fortes sJo 
os seguintes: 

Tipos de Varidveis - o TRS-80 trabalha com dois tipos de 
variaveis reais, precisSo simples (sete digitos) e precisSo dupla 
(16 digitos), ocupando respectivamente 4 e 8 bytes, enquanto 
o Apple tern apenas uma, que ocupa 5 bytes e tern precisSo 
de nove digitos. Isso 6 particularmente importante nas aplica- 
95es financeiras e cientfficas, onde a precisSo de nove digitos 
do Apple normalmente nSo 6 suficiente. Outro ponto interes- 
sante a ser mencionado e que, embora ambos tenham variSveis 
inteiras, somente o TRS-80 tern rotinas matemdticas especi'fi- 
cas para inteiros (sao mais rapidasl). 0 Apple converte tudo 
para real antes de fazer contas, sendo portanto mais lento, 
com valores inteiros do que com os reais (que nSo precisam 
de conversSo alguma). Obs.: 6 importante notar que os valores 
mSximos suportados pelas variSveis de ambos sdo +1E38 e 
-1E38, independendo do numero de digitos de precisSo. 

Edi^ao de Linhas de Programa - o comando EDIT do TRS- 
80 pode ser meio complicado para os iniciantes, alem de apre- 
sentar na tela resultados absolutamente malucos se usarmos o 
backspace em certas circunstancias, pordm nem de longe pro- 
voca no usudrio acessos de furia, similares aos que o modo de 
ediijdo do Apple tern causado. Para se editar uma linha no 
Apple, basta listd-la e passar o cursor sob re as partes que nos 
interessam, reescrevendo apenas o que for necessdrio. Embora 
em essentia o metodo seja genial, o que acontece na prdtica 6 
que o execrdvel sistema de listagem do Apple enfia por conta 
prdpria montes de espa?os extras nas linhas que lista, fazendo 
com que elas freqiientemente passem de 240 caracteres, tama- 
nho mdximo admissi'vel. Aldm disso, devido a inclusSo espon- 
tanea das margens esquerda e direita por parte da rotina de 
listagem, as constantes string que tern o infortunio de ficar 
metade numa linha e metade na seguinte ganham inesperada- 
mente 12 espa^os extras no meio, levando o usudrio d loucura 
completa. 

Bugs Intemos — 6 outro grande pesadelo dos usuarios do 
Apple. Saltos inesperados para o monitor durante comandos 
GET e erros FALTA MEMORIA nos comandos diretos nSo 
sSo exatamente raros, aldm de que o comando CONT nem 
sempre funciona direito. 0 trapeamento de erros atraves do 
ONERR tambtin ndo d Id essas coisas, pois a pilha do BASIC 
nSo 6 restaurada, podendo ocorrer erros NEXT SEM FOR e 
RETURN SEM GOSUB, quando tentamos retomar a execu^So 
do programa. Jd do lado do TRS-80, estas coisas simplesmente 
nSo acontecem - como foi mencionado mais acima, o BASIC 
do TRS-80 6 o pr6prio MB ASIC encurtado (verificamos que 
grande parte das rotinas confere byte a bytel), tendo portanto 
quase o mesmo nivel de depura?do que este. 

Comandos e F undoes - 6 um dos pontos em que mais se sente 
a superioridade do TRS-80. Embora o Apple conte com alguns 
comandos simplesmente geniais, tais como GET (ndo e o 
mesmo GET do TRS-80!), POP, HIMEM:, LOMEM:, STORE e 
RECALL, algumas instru95es vitais foram mal implementadas 
ou nem sequer existem nele. As principais mancadas do Apple 
sdo o IF, que ndo admite ELSE; o PRINT, que ndo admite o 
modo USING; o CONT, que ndo funciona direito; e o RESU- 
ME, que ndo admite numero de linha e sempre tenta reexecu- 
tar a instru 9 do em que houve erro. Fazem falta tambdm os 
comandos AUTO, MIDI (de atribui 9 do), LINE INPUT, 
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. TEXTO:’ 24 lin. X 40 col. 


. TEXTO 1: 16 lin. X 64 col. 




. GRAFICO: 


. TEXTO 2: 16 lin. X 32 col. 




Baixa Reaolu^ao: 40X48, IS 


. GRAfICOI: 128X48 




cores. 

Alta Resolucao: 280X192, 2 


. GRAFICO 2 : 64X48 
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conjuntos de 4 cores. 


Obs.: Graficos e texto podem 


. MISTO: 


ser misturados na mesma te- 




Baixa Resolugao: 40X40, 15 


la. Selegao de modo 32 ou 


0 


cores ♦ 4 linhas de texto* 

Alta Resolugao: 280X160, 2 
conjuntos de 4 cores + 4 
linhas de texto. 

Obs.: Todos os modos disponxveis 
em duas paginas graficas, sele- 
cionaveis por soft. 


64 por software. 




. Interface para gravador . 


Modelos I e III: 
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. Alto-falante interno. 


. Interface para gravador. 
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. 4 saidas e 3 entradas digi- 


Uma saida de expansao de 50 
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tais de um bit cada . 


pinos. 




. 4 entradas analogicas para 


. Circuito de leitura de te- 
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paddles ou joysticks- 


clado controlado por soft. 
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8 soquetes de expansao. 






cada um tendo reservados 


So no Mod III: 
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para si 8 bytes de RAM, 


. Alto-falante interno. 
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16 enderegoB de acesso e 


. Relogio. 
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uma area de 256 bytes de 


Interface para impressora. 
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uso geral . 
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. Circuito de leitura de te- 
Clado independente . 





Quadro comparative de hardware. Embora pertenca ao conjunto de 
E /S ( entradas e sat'd as), o video ficou em um quodrinho separado devi- 
do ao maior numero de itens a ele relacionados. 



LSET e RSET, alem de todos os comandos de opera 9 do de 
disco, que jd sdo previstos no BASIC do TRS-80. Em termosde 
fu^Oes, as piores ausenciasno BASIC do Apple sdo STRINGS, 
VARPTR e INSTR, pois estas fu^Ses sdo muito valiosas e 
ndo podem ser sintetizadas simplesmente atravds de PEEKs, 
tal como se faz com ERR, ERL e INKEYS (outras ausentes). 
Finalmente, os operadores AND, OR e NOT. No TRS-80, 
estes operadores sdo o que parecem - AND, OR e NOT boole- 
anos feitos bit a bit — ; jd no Apple, so sdo considerados os 
estados FALSO (0) e VERDADEIRO (qualquer coisa dife- 
rente de 0) dos operandos, sendo sempre retornados os valores 
de 0 ou 1. A conseqiiencia 6 que no TRS-80 pode-se testar, 
acender ou apagar bits individualmente atravds destes operado- 
res, enquanto no Apple d necessdrio um verdadeiro festival de 
opera95es para isto. 

HARDWARE 

Aqui as coisas se invertem completamente. Para quern d do 
ramo, d dificil fugir d impressao de que o circuito do TRS-80 
(o do original, pois alguns dos nacionais sdo bastante diferen- 
tes) parece coisa de principiante, devido ao grande numero de 
portas logicas inaproveitadas ou mal escolhidas. Jd o do Apple 
e universalmente reconhecido como obra-prima do genero, por 
ser um projeto extremamente inteligente, “enxuto” e versatil. 

Embora ambos tenham mais ou menos o mesmo numero de 
componentes, o hardware do TRS-80 apresenta apenas dois 
modos de tratamento de video, uma interface para gravador e 
um unico conector de expansao (isso vale para o TRS-80 Mod. 

I; o Mod. Ill tambem tern alto-falante interno, relbgio e inter-® 
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face para unpressora. porem o numcro de components t 
maior) Enquanto iuo. o hardware do Apple incorpora cinco 
modos de iratamento de video (t6 texto. so grificos de alta 
ou baixa resol u^io e muto texto ♦ francos de alta ou baixa 
reaolufio). todos disponiveis em duas diferentes piginas de 
memrina. cor. oito soquctes individuals de expansio. quatro 
entradas analogical (para paddles ou joystick); trts entradas 
e quatro saidas digitais de um bit, alto-falante intemo, interfa- 
ce para gravador e circuito de varredura automitica de teclado. 

De todas as caracteristicus do Apple, sem duvidu alguma, as 
mais importantes sdo a capacidadc grdfica e os soquctes de 
expansio. Devido a estes ultimo*, praticamente qualqucr tipo 
de implementa^io ou alterafio pode ser feita no Apple, 
tomando-o compativel com as necessidades de cada usuino 
em particular Expansio de memrina. interface serial, caneta 
6tica. gravador de EPROM, convenores A *D e DA. expansio 
de video para 80 colunas. pseudodisco em RAM e ate mesmo 
um cartio que substitui o fraco 6502 pelo Z-80 (o famoso car 
tio CP/M), sio apenas alguns dos circuitos disponiveis, todos 
eles adaptaveis ao Apple atravls de um simples encaixe. dispen 
sando, assim, pessoal especializado 

Outra grande vantagem proporcionada pelos soquctes d a 
presen^a neles de slnuls e entradas de controle que tornam 
exccpcionalmente simples o piojeto de circuitos de expansio 
ou interfaceamento - dai o Apple nio ter rivals em laboratd- 
nos de uruversidades. ondc se mostra insubstituivel em opera- 
(6es de controle e aquisifio de dados 



S1STEMAS OPERAC IONAIS 

Nesse aspecto, o TRS- 80 se recupera da lavada tomada no 
t6p»co anterior De mode geral. os vinos sistemas operacionais 
disponiveis para a linha TRS -80 ( como. por exempio, NEW 
DOS80. LDOS e DOSPLUS) sio bem melhores que o DOS 
original do Apple, o DOS 3 3 ( recentemente a Apple lan^ou 
o PRODOS. um novo sistema operational que promete muito). 
As principals vantagens sio maior capacidade em disco (180 
Kb contra 140 do Apple), muito maior quantidade de coman- 
dos a nivel de DOS; maior velocidade de leitura e gravayfio; 
a complcmcntafio dos comandos do BASIC residente, e o 
acrcscimo de um bom numero de novos comandos especiais, 
acessiveis via comando CMD, tail como ordena^io de matnzes, 
elimma^io de comentinos e espa^os em branco e buses de 
palavras especificas nos program as 

Ahado a tudo isso, o TRS- 80 tern ainda o mento de contar 
com comandos de opera^io de arquivos ja concluidos no 
BASIC, os quats tornam- se ativos sempre que o DOS 4 "boots 
do". No Apipie. todos os comandos sio passados ao DOS at ra- 
ves de instnifdes PRINT - pedir um diretdno dentro de um 
programa. por exempio. deve ser feito atraves de PRINT 
CHRS (4) “CATALOG” o mistenoso ( HRS (4) serve para 
indicar ao DOS que a string que o segue nio deve ser impressa, 
mas sim encarada como um comando. Alim disso, as rinicas 
instrufOes de entrada e saida de dados para o disco sio INPUT 
e PRINT, o que limits bastante a gama de valores gnvdveii 
(como os usuinos do Apple ji devem saber, a instniflo INPUT 
tern o nuu-cosrume de ignorar espa^os em branco e engaigar 
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com aspas, e 

Outra consequencia extremamente exasperante disto e 
que os comandos de opera?5o de arquivos do Apple n5o po- 
dem ser dados em ni'vel direto; unido ao pouco confidvel co- 
mando CONT, isto faz com que parar um programa no Apple 
atrav^s de Ctrl -C (equivalente a tecla BREAK do TRS-80) se 
tome um verdadeiro suici'dio! Mas o DOS do Apple tambem 
tern 1 & suas vantagens. Uma delas 6 o fato de o DOS 3.3 ficar 
inteiramente contido na RAM — isso nlo acontece com ne- 
nhum dos DOS do TRS-80, os quais tern de ficar carregando 
com freqiiencia comandos do disco para a memoria. Em con- 
sequencia sua opera?3o acaba sendo meio lenta, aldm de que 
um dos drives sempre devera conter um disco que tenha o 
sistema operacional. Outra vantagem e o acesso a qualquer 
dos comandos do DOS sem que se perca a seqiiencia do 
programa - o TRSDOS, por exemplo, costuma largar o usud- 
rio no DOS quando se acessa um de seus comandos atraves de 
CMD “I”. 

Da parte do PRODOS, ainda um desconhecido por aqui, 
o grande trunfo parece ser a capacidade de operar adequada- 
mente com discos de capacidade quase infinita. Aldm da capa- 
cidade de gerenciamento de grandes memorias virtuais, o PRO- 
DOS apresenta uma organizaijSo hierarquica de arquivos, na 
qual cada disco pode ser dividido em varios volumes, cada um 
can seu prdprio diretorio. Cada item desses diretorios pode ser um 
arquivo ou um subdiretorio, o qual por sua vez tambdm pode 
ter arquivos ou sub-subdiretorios, e assim por diante. 

Com o PRODOS e possivel ter em um determinado disco o 
volume CARTAS, o qual_ poderia ter os siibdiretdrios DAS 
NAMORADAS e DA MAMAE, que por sua vez conteriam di- 
versos arquivos — as prdprias cartas, no caso. No mesmo dis- 
co poderiam tambdm ser mantidos outros volumes, tais como 
JOGOS ou APLICATIVOS, sendo o numero de arquivos 
limitado apenas pela capacidade do disco em questSo. Isso 6 
inestimdvel na administrate de discos de grande capacidade 
— quern de n6s j i nSo se sentiu completamente perdido, 
mesmo com os miseros 140 Kb de nossos discos? 

Para as pessoas que ja trabalharam profissionalmente 
com o DOS 3.3 do Apple, sem duvida, a impressJo que fica 6 
a de que realmente 6 impossi'vel fazer com ele qualquer ^raba- 
Iho mais s6rio. A baixa capacidade dos discos se une ao perdu- 
ldrio formato em ASCII que lhe 6 imposto pelas instrufOes 
PRINT e INPUT, tornando a vida do infeliz programador um 
inferno, ii nos DOS do TRS-80, as coisas s5obem mais fdceis:os 
discos tern maior capacidade, os comandos de grava?5o e leitura 
sSo bem melhores, e alem disso 6 possivel gravar valores no 
economico formato binirio. Apesar de tudo isso, o que se 
observa na prStica e que a disponibilidade de software para o 
Apple i muito maior que a de qualquer outra linha existente. 

Um possivel responsdvel por isso 6 o fato de se poder alte- 
rar enormemente as rotinas de controle do drive, criando-se 
assim novos formatos de grava 9 So, quase impossiveis de se co- 
piar. Outro motivo que nSo pode ser deixado de lado 6 a 
versatilidade do hardware, que abre dreas de atua^So que para 
outros micros estao fechadas, tais como softwares grdficos 
ou de controle e aquisito de dados. 

conclusAo 

Como se pode ver, fazer uma comparafSo entre as linhas 
Apple e TRS-80 realmente n2o 6 muito simples, pois as duas 
familias tern, na verdade, muitos pontos fortes e fracos 
a serem considerados. Do ponto de vista dos softwares aplica- 
tivos e utilitdrios, pode-se dizer que todos os programas 
mais serios que foram desenvolvidos para uma das familias 
em particular, tern sempre um sdsia adaptado a outro. Para 
complicar mais ainda as coisas, ambos contam, jd hd algum 
tempo, com circuitos que lhes permitem trabalhar com o CP/ 
M, o mais difundido sistema operacional do planeta. Isso eli- 
mina as diferen 9 as em termos de sistema operacional e lingua- 
gens de program a 9 do, fazendo com que os unicos critdrios a 



serem levados em conta na hora de escolher um computador 
sejam o hardware, o pre?o e o gosto pessoal de cada um. 

Da parte do hardware, sem duvida alguma a balan^a pende 
para o lado do Apple (talvez por isto as vendas dessa linha 
sejam maiores que as do TRS-80). Com rela^do ao pre 90 , 
porem, as coisas sSo bastante mais dinamicas, pois em grande 
parte este 6 ditado pelas tendencias do mercado. Se as vendas 
do Apple come 9 am a aumentar, por exemplo, os fabricantes 
do TRS-80 podem contra- atacar, reduzindo, na medida do 
possivel, seus pre 90 S, e vice-versa. 

Considerando bem as coissas, nJo existe uma forma segura 
de se apontar um vencedor incontestavel; tudo vai depender 
do momento e da aplica 9 §io que se tern em mente. 
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A Copa do Mundo esta ai e, com este programa para a linha 
Sinclair, voce pode ter o seu proprio controle dos resultados 
das partidas. O mais e torcer para que a Ta?a seja nossa! 



Campeonato 

Marcel G. de Albuquerque 



E ste € um programa para micros 
de logica Sinclair com. no mini- 
mo. 16 Kb. que avalia a perfor- 
mance de times de futebol num 
campeonato. Ele t auto-explicativo e 
uma boa maneira dc cntcnde-lo e 
executando-o. 

Para digitar o programa, proceda 
da seguinte forma: se o seu micro 6 
um compativel com o ZX81, entSo 
apenas digite na Integra a listagem do 
programa. Caso o seu computador seja 
um compativel com o ZX Spectrum, 
digite a listagem scm as linhas 8 e 612 
e substitua a linha 610 por: 

610 SAVE "CAMPEONATO" LINE 
40 

Para utilizi-lo pela primeira vez, 
deve-se digitar RUN c aparcccra na tela 
o menu principal com suas sete op^Oes 
que serSo explicadas a scguir: 

1) Cadastro das equipes - inicialmente, 
deve-se escolher a primeira op^Ho para 
cadastrar as equipes. Confirmada a esco- 
tha, sera perguntado o niimcro de times 
participantes (para 16 Kb, o numero 
miximo e cerca de 45. mas a faixa 
aconselhavel e entre 10 e 15 times para 
e as dassifica^Oes efetuadas nas op^&es 
4 e 5 nao demandem muito tempo e 
tambem para que a gravafio nio Oque 
muito longa, principalmente nos micros 
ZX81. 0 programa nSo aceita a inclusio 
de times com o mesmo nome; quando 
sc tenta faze-lo, aparccc a mensagem 
“TIME JA CADASTRADO”, na linha 
21. Ao tirmino da inclusio, e pedida 
uma confirmafio dos dados para que 
haja o retomo do menu principal. 



2) Resultados da rodada - nesta op^ao 
e que estlo induidos os resultados dos 
jogos entre os times cadastrados. Deve- 
se entrar com o nome do primeiro time 
e gols marcados, depois o nome do se- 
gundo e os gols e assim por diante. Apos 
a entrada dc cada jogo, surge a pergun- 
ta se voc6 qucr corrigir ou sair para 
o menu; sc descjar continuar a inclus3o 
de resultados, acione qualquer tecla, 
exceto M, C e BREAK, evidentemente. 
Se o jogo for confirmado, serio atribui- 
dos pontos 3s equipes (sub-rotina na li- 
nha 800) a saber: time vencedor, 2 pontos 
ganhos; time perdedor, 2 pontos perdidos; 
e, se houver empate, 1 ponto ganho e 
outro perdido. 

3) Classifica^ao - para se entrar nesta 
opfSo, ha que sc ter entrado com alguns 
resultados ou surge a mensagem “AR- 
QUIVO DE RESULTADOS VAZIO”. 
Esta op(So ji di accsso a um menu com 
sete op^flcs. 

1. Pontos ganhos - lista os times em 
ordem crescentc de pontos ganhos; 
se houver igualdade, prevalece a ordem 
alfabetica 

2. Pontos perdidos - mostra os times 
em ordem crescente de pontos perdidos. 

3. Ntimero dc vitdrias - lista os times 
em ordem crescente de numero de vit6- 
rias. 

4. Melhor ataque - classifica as equipes 
por numero dc gols marcados, dando 
tambdm a mddia dc gols por partida. 

5. Melhor defesa - classifica em ordem 
crescente de gols sofridos, mostrando 
tambem a media de gols por partida. 

6. Melhor saldo - classifica por ordem 
decrescente de saldo de gols. 



7. Menu - com esta opfio, retoma-se 
ao menu principal. 

4 ) Situa^ao Geral - esta op^fo mostra 
a dassificaflo geral das equipes basea- 
da nos seguintes criterios pela ordem 
preference: 

1. Maior numero de pontos ganhos. 

2. Maior numero de vitdrias. 

3. Melhor saldo de gols. 

4. Maior numero de gols. 

Caso pcrsista o empate, o programa 
lista em ordem alfabetica. 

5) Lista equipes - com esta opfio, 
obtlm-se na tela uma listagem das equi- 
pes em ordem alfabetica. Note-se que 
a ordem alfabetica esta por coluna e, 
qualquer que seja o numero de equipes, 
haver* uma distribui^o equitativa de 
equipes por coluna. Nesta, como em to- 
das as outras opfOes, houve a preocupa- 
9 &o com a “quebra” de tela. 

6) Grava^do - permite gravar o progra- 
ma com os dados para posterior utiliza- 
9 *o. Como ji foi explicado, ao utilizar 
o programa pela primeira vez. ou quan- 
do nfo hi dados, 6 necessirio digitar 
RUN, pois assim ha a inicializa 9 io de 
cert as variiveis. Em outros casos (como 

rada pot erro), deve-se digitar GOTO 
. pois a variivel U contem o valor 
3000, que 6 o numero da linha do 
LOOP principal do programa. 

7) Tirmino - termina a exec^io do 
programa, causando um STOP. 

DADOS SOBRE O PROGRAMA 

As equipes estio armazenadas na ma- 
triz E J e os resultados na matriz A, cuja 



to 
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dimensSo 6 N*9 (N e o numero de equi- 
pes). Cada coluna deste conjunto tem a 
seguinte representa^ao para cada time: 

A (1 2345 6789) 

1 . Numero de pontos ganhos. 

2. Numero de pontos perdidos. 

3. Numero de vitorias. 

4. Numero de gols pro. 

5. Numero de gols contra. 

6. Saldo de gols. 

7. Numero dejogos. 

8. Numero de empates. 

9. Numero de derrotas. 

Na figura 1, voce pode acompanhar 
a entrada de dados e o resultado no 
video de cada op?ao dos menus. Foi 
tomada como base a chave com a pri- 
meira fase do grupo D, na Copa do 
Mundo; os resultados, naturalmente, 
s2o ficticios. 

Se o seu micro n5o e da familia Sin- 
clair, nSo fique desanimado, pois este 
programa e totalmente modular e facil- 
mente adaptdvel a outras linhas de equi- 
pamentos. Entao, o que voce esta espe- 
rando? MSos A obra e depressa que a 
Copa esta at. 



Marcel C. de Albuquerque 6 Engenheiro Civil, 
trabalhando atualmente no INPD, da Univarsi- 
dade Federal de A lagoas. 



1 ) 


CADASTRO DAS 


EQUIPES 






2) RESULTADOS 


DA RODADA 




BRASIL 


ESPANHA 






ESPANHA 


1 


x 1 ARGfiLIA 




ARGELIA 


IRLANDA 






BRASIL 


2 


X 1 IRLANDA 












ARGfiLIA 


0 


X 1 IRLANDA 












ESPANHA 


2 


x 3 BRASIL 












ESPANHA 


4 


X 2 IRLANDA 












BRASIL 


2 


x 0 ARGfiLIA 


3) 


CLASSIFICACAO 
















PONTOS GANHOS 




PONTOS PERDIDOS 


N« 


DE VITdRIAS 




01) BRASIL 


6 


01 ) 


BRASIL 


0 


0 1 ) 


BRASIL 3 




02) ESPANHA 


3 


02) 


ESPANHA 


3 


02) 


ESPANHA 1 




03) IRLANDA 


2 


03) 


IRLANDA 


4 




IRLANDA 1 




04) ARGELIA 


1 


04) 


ARGELIA 


5 


03) 


ARGELIA 0 




MELHOR ATAQUE 








MELHOR DEFESA 






C EQUIPE 


GOLS MEDIA 




C EQUIPE 




GOLS MfiDIA 




01) BRASIL 


3 1 






01) BRASIL 




3 1 




02) ARGELIA 


4 1 


33 




02) ARGELIA 




4 1.33 




03) ESPANHA 


6 2 






03) ESPANHA 




6 2 




IRLANDA 


6 2 






IRLANDA 


6 2 




MELHOR SALDO 






QUADRO GERAL DO CAMPEONATO 




01) BRASIL 


4 




C 


TIME PG J V 


E 


D GP GC S 




02) ESPANHA 


i 














03) IRLANDA 


-2 




01 


BRASI 06 03 03 


00 


00 07 03 04 




04) ARGELIA 


-3 




02 


ESPAN 03 03 01 


01 


01 07 06 01 










03 


IRLAN 02 03 01 


00 


02 04 06 -02 










04 


ARGEL 01 03 00 


01 


02 01 04 -03 




C=CLASS I FI CAqAO PG=PONTOS GANHOS 


J=JOGOS REALIZADOS 


v=vit6rias 




E= EMPATES 


D=DERROTAS 


GP= 


GOLS PR(5 


GC=GOLS CONTRA 


S=SALDO GOLS 



Figura 1 - Exemplo de utilizafao do programa. 



2 PCM CHMPEONfiTO 
* REM MPRCEL G DE RLBUQUERQUE 
a FRST 
le let y=e 
12 let c=u 

14. LET H*U 
16 LET F = 5 
18 LET 2=8 
20 LET U=3000 
22 LET P *4.0000 
24 LET Cl = " 

26 DIM X* (6,15) 

26 LET X| (1> = "PONTOS GBNHOS" 

30 LET X* <2) = "P0NT08 PERDID05" 
32 LET X|(3)=“N* DE UITORIfiS” 
34 LET XI (4) *"M£LHOft RTflOUE '' 

36 LET X* (5) •■•MELHOR DEFESR" 

38 LET X* (6) =" MELHOR SflLDO" 

40 G05UB 50 

42 PRINT RT 10 , 11, "CflMPEONRTO" 
44 PRU5E 50 
46 GOTO U 
50 REM *MOLDLIRR* 

52 FOR 1.0 TO 31 
54 PRINT RT 0,1, "*" 

56 PRINT RT 21 .1: "*" 



58 NEXT I 
60 FOR 1=0 TO 21 
62 PRINT RT 1,0; "*" 

64 PRINT RT 1, 31; "*" 

66 NEXT I 
66 RETURN 

70 REM *LIMPR LINMR 21% 

72 PRINT RT 21,0; " 

74 RETURN 

76 REM *CRRREGRNDO SI* 

78 FOR I«1 TO N 
80 LET S|(I)«EIU) 

82 NEXT I 
84 RETURN 

86 REH tCRRREGRNDO ARRAYS* 
88 FOR 1*1 TO N 
90 FOR J = 1 TO 9 
92 LET B (I,J) =fl (I, d). 

94 NEXT d 
96 NEXT I 
98 RETURN 

100 REM *CADASTRAMENT0* 

102 IF C-0 THEN GOTO 112 



104 CLS 

106 PRINT RT 20,0; "ESTA OPCRO D 
ELETR T0D05 05 DRD06EXI5TENTES , 
CONFIRMR ? (S/N) ? " 

108 PAUSE P 

110 IF INKEY* <>"8“ THEN GOTO U 
112 CLS 

114 PRINT TAB 9; “CflDflSTRRMENTO" 
116 LET 0*1 

118 PRINT , , “QURNTflS EOUIPES 7 

i20 INPUT N 
122 PRINT N 
124 DIM E* IN, 15) 

126 DIM HUN, 15) 

128 DIM SUN, 15) 

130 DIM A IN, 9* 

132 DIM BIN, 9' 

134 DIM 0(1,9) 

136 DIM Y'.N> 

138 PRINT , , " D IG ITE N0ME5 " , , 

140 LET fl = 5 

142 FOR 1=1 TO N 

144 PRINT RT 0,27; I; " 

146 GOSUB 900 
148 LET E* (I) *T| 

150 LET R=A+ . 5 
152 LET 6=0 

154 IF I/2=INT (1/2) THEN LET B 
= 16 

156 PRINT RT A,B,E*CI), 

158 IF A=19 AND B*16 THEN GOSUB 
170 

160 NEXT I 

152 PRINT RT 21.0; "OK 7 (S/N)" 
164 PAUSE P 

166 IF INKEY * = " N" THEN GOTO 100 

168 GOTO U 

170 LET R=1 

172 PAUSE 100 

174 CLS 

176 PRINT TAB 10, "CONTINUACRO" , 

' 178 RETURN 

200 REM *RE5ULTAD0S DR RODRDA* 

202 LET U=0 

204 CLS 

206 LET U|«"" 

208 FOR 1=0 TO 19 

210 PRINT RT 1,2; “ 



GOSUB 900 
LET E1=T 

PRINT RT 1,2; T| ( TO 10); 
INPUT G 1 

PRINT TAB 13; Gl; 

GOSUB 900 
LET E2=T 

IF EK>E2 THEN GOTO 236 
PRINT RT 21,0; "TIMES REPET I 

PAUSE 100 
GOSUB 70 
GOTO £22 

PRINT RT I , 19 ; T* ( TO 10) 
INPUT G2 

PRINT AT I , 17; G2 

PRINT AT 20,0; "P/CQRRIGIR 

PRINT "P/MENU. M" 

PAUSE P 

LET U*»INKEY* 

IF d* < > " C " THEN GOSUB 800 
IF U * = ' M " THEN GOTO U 
FRINT RT 20,01 " 

GOSUB 70 

IF UI*"C" THEN GOTO 210 
I* 1=18 THEN GOTO 208 
NEXT I 
GOTO U 

REM *CLAS5IFICRCR0* 

CLS 

GOSUB 50 

PRINT RT 2,12; "0PC0E5 
FOR 1=1 TO 6 

PRINT RT 2*1*2, Z; I; ") "; XI (I 
NEXT I 

PRINT AT 16,2; "?) MENU" 

INPUT M* 

IF M| < “ 1 " OR Ml > "7” OR LEN 
THEN GOTO 322 
IF M* * " 7 " THEN GOTO U 
GOTO 1000 

REM *S ITUACRO GERAL* 

IF Usl THEN GOTO 436 
G05UB 75 
GOSUB 86 
LET K=0 
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CAMPEONATO 



410 FOR 1=1 TO N-l 
412 IF B (I, 1) ->B d4l, II OR (B(I, 
l)=Bd4l,l, AND B I 1,3) >B (l4l ,3) ) 
OR < B (1 , 1 ) =6 d * 1 , 1 ) RND B ( 1 , 3 i = 
6(141,3! AND- B ■ I . 6) >B ( l4l , 6) I OR 
(8 (I , li =B (I4l, 1) AND Bd,3)»6(I 
41,3) AND B(I,6) = Bd4l,6) AND B( 
1 , 4) >B ( 141 , 4; ) OR IB ( I , li =B ( l4l , 
1) AND B fl . 3) =B ( 1 41, 3) AND B(I,6 
J=B(l4l,6) AND B(I,4) =8(141,4.) A 
ND S$d)<Sid4l)) THEN SOTO 432 
414 LET Bi*5I<I> 

416 LET Sid) =51(141) 

418 LE^ Si i.I + l) =6* 

420 FOR J=1 TO 9 
422 LET C (1, J) =6 (I . J) 

424 LET Eli, .J) =B ( 1 4 1 , J ) 

426 _ET B (111, J) =C (1, J) 

428 NEXT J 
430 LET K =1 
432 NEXT I 

434 IF K<>0 THEN GOTO 408 
436 CLS 

438 PRINT •’ OUADRO GERAL DO C 
AMPEONATO” 

440 PRINT ,,"C TIME PG J V 
E D GP GO 8" 

442 FOR 1=1 TO N 
444 print 0" and I<10;I;" st 
(I) < TO S) ; " " j 11 0" AND B (1, 1) <10 
; B ( 1 , 1) ; " 0" AND 6(1,7) < 10! B( 

I,?);" " ; " 0 1 AND B (1,3) <10; B (1,3 
) . .. ■ ■ ; ■ ■ 0 ■ ■ and B (1,8) <10; B (1,8) , "■ 
: "0" AND B (1,9) <10; B (1,9) ; •• 

"0" AND B ( 1 , 4) < 10; B ( 1 , 4) , ” ";‘'0“ 
AND B (1,5) <10; B (1,5) l " " AND B! 
1,6) >«0; AND B (1,6) <0; “0 ' AND 
ABS (B (1,6) ) <10; ABS (B(I,6!) 

446 IF 1/16 OINT (1/16) THEN SO 
TO 458 

448 PRINT AT 21,0; "P/CONTINUAR ; 
NL" 

450 PAU5E P 
452 LET U$*INKEYi 
454 G03UB 70 
456 CLS 
458 NEXT I 

460 PRINT AT 21 , 0, "P/MENU : NL" 

462 PAUSE P 

464 LET U I =INKEY $ 

466 LET U=1 
468 GOTO U 



SOFTWARE PARA CP 400 E COMPATjVEIS 

APLICATIVOS: Processador de Textos 

PPTEXTO c/ acentuapgo err portugues, Plani- 
Ihas Eletronicas, Bancosde Dados, Pacotes ln- 
tegrados. 

UTILITArIOS: Editor/ Assembler, Expansor 
de Tela, Supertec, Compiladores, Copiadores, 
Etc.. 

GRAFICOS: DUMP P-500, Esquemas Eletroni- 
cos, Bjork Blocks, Comerciais, Graphicom e 
outros. 

LINGUAGENS: LOGO em portugues, PILOT 
para professores e uso didatico, PASCAL, 
CBasic. 

JOGOS: Muitos titulos para mencionar aquil 
Nossos catalogos mostram as telas dos jogos. 
Terras jogos exclusivos. Escolha melhor na 
Peek 6t Poke! 

SOFTWARE PARA CP 500 / CP 3 00 

— Processador de textos PPTEXT 500 DISCO 
c/ acentuap3o. 

— Planilha Eletronica CALC-300. Unica em Z- 
80 para versSo K-7. 

— Utilitarios copiadores para fita e disco. 

— Editor /Assembler, monitor MACMON e tu- 
tor de linguagem de maquina. Em fita ou disco. 
Aprenda Z-80! 

— Compilador ZBasic. Produz codigo objeto 
com rapidez . 

SOFTWARE PARA LINHA MSX 

Revendemos cartuchos e Mas c / os melhores 
prepos, Desenvolvemos titulos prdprios. Entre 
em contato. 

A PEEK & POKE demonstra. garante e da su- 
porte permanente a seus programas. Venha 
conhecS-los ou solicite catalogo completo para 
oseu equipamento. 



500 REM *LI5TAGEM DRS EQUIPE5* 
502 IF H = 1 THEN GOTO 530 
504 FOR 1=1 TO N 
506 LET Hi (I) =E* (I) 

508 NEXT I 

510 LET H = 1 

512 LET K =0 

514 FOR 1=1 TO N-l 

516 IF Mid) < =H| ( 1 + 1) THEN GOTO 

526 

518 LET B|=Hid) 

520 LET H* (I) =H* (I + i) 

522 LET H*(I+1) = Bi 
524 LET K = 1 
526 NEXT I 

528 IF K < >0 THEN GOTO 512 
530 CLS 

AFio^PE5"" RELfiCfl ° RLFRBET ^« D 

534 LET H=3 

536 LET J=0 

538 FOR 1=1 TO N 

540 PRINT AT M,J;H*(I> 

542 IF M*3 AND J=0 THEN LET X=I 
NT I. (N-I) /2) +4 
544 LET H =M + 1 

_546|F <M.X OR M=19) AND ItN TH 
EN GOSUB 558 
546 NEXT I 

III pSuse p T 21 ' 0j " P/MBNU: nl '' 

554 LET UJrINKEY* 

556 GOTO U 

558 IF J = l? THEN GOTO 564 
560 LET J=17 
562 GOTO 574 
564 LET U=0 

566 PRINT AT 2 1 , 0 ; " P /CONTINUAR 
NL 

568 PAUSE P 

570 LET U*=INKEY| 

572 CLS 

574 LET M=3 

576 RETURN 

600 REM 4GRAUACA0* 

602 CLS 

,604 ( PRINT "0 GRAUADOR ESTA LIGA 
606 PAU5E P 

^608 IF ZNKEYt < > "S" THEN GOTO 60 

610 SAUE "CAMPEONATB" 

612 GOTO 40 
700 REM *FIM* 

702 CLS 

7®4 PRINT " TERMINO NORMAL DE E 
XECUCHU 
706 STOP 

800 REH *ATRIBUICAO DE P0NT03* 
802 LET U*1 

804 LET A (El , 7) .A (El ,7) +1 
806 LET A (E2,7) =A (E2, 7) +1 
808 LET A (El, 4) =A (El,4) 4G1 
810 LET A(E2,4) =A (E2,4) +G2 
812 LET A (El ,5) «A (El , 5) +G2 
®1* hET R(E2,S) =A(E2,5) +G1 
816 LET A (El, 6) «A (El , 6) 4G1-G2 
818 LET A (E2,6) =A (E2,6) +G2-G1 
°i E1 - 1 1J <E1 > 11 + ( 2 AND 
G1 >G2 ) + ( 1 AND G1=G2) 

= R <=2,1> *(2 AND 
G1 <G2) + ( 1 AND S1«G2) 

824 LET A (El, 2) =A (El, 2) 4 (2 AND 
G1 <G2) 4 ( 1 AND G1.G2) 

n? 2 £,Jr E T . ' 5 > =R ‘62, 2) 4 (2 AND 

G1 >G2) 4 ( 1 AND G1»G2) 

823 LET A (El,3) =A (El, 3) + (1 AND 
G1 >G2) 

g 630 2 LET A(E2,3) =A(E2,3) 4(1 AND 

„? 3 :L LET A (El, 9) *A(E1,9)4(1 and 
G 1 < G2 ) 

63* LET A (E2,9) =A (E2,9) 4 (1 AND 
G1>G2) 

G1 -G2)" ET R<E1,8) =A(E 1 ,8S 4(1 AND 

838 LET A(£2,3) =A(E2,8) 4(1 AND 
G1=G2) 

840 RETURN 

900 REH 4ENTRADA DE DADOS* 

902 INPUT T| 

12= ,I F T J-"" ™EN GOTO 902 
906 LET T =0 

S08 IF LEN Ti < 15 THEN LET Ti=Tt 
4C* ( TO (15-LEN T|) ) 

910 FOR J=1 TO N 

til Sx? 1 =T * THEN LET T - J 

916 IF (T o 0 AND M* = "2‘ l ) OR (T = 

0 AND Hi*" 1 " ) THEN GOTO 928 
, 9 i LE T 1F THEN PRINT AT 21, 

0; T IHE JA CADASTRAD0" 

920 IF Mi="2" THEN PRINT AT 21, 
0) TIME NAO CADASTRAD0" 

922 PAUSE 200 
924 GOSUB 70 
926 GOTO 902 
928 RETURN 

1000 REM *PONTOS GANHOS* 

1002 CLS 

1004 IF Ui=M| THEN GOTO 1056 
1006 GOSUB 76 
1008 FOR 1=1 TO N 

ill! NllT B I I,UflL M *> * fllI ' VRL "*> 

1014 LET U»=M* 



0R M*= "5" THEN 00 

SUB 2000 
1018 LET K=0 
1020 FOR 1=1 TO N-l 
1022 IF >"2" AND Mi<>"5" THEN 
GOTO 1028 

J- 02 * IF B < I , UAL HD <B ( 141 , UAL M* 
) OR (B ( I, UAL Mi) =B (141 , UAL Mi) 
AND Sid) <S*(l4il) THEN GOTO 105 
2 

1026 GOTO 1030 

I 02 ® l Z ”•> >0(l4l,UAL Mi 

M *> «B(I41, u6l Mi) 
AND Sid) <S$ ( l4l ) ) THEN GOTO 105 
2 

1030 LET Bi = 5td) 

1032 LET 5$ (I) =5$ (141) 

1034 LET Si (I4l) =BS 
1036 LET B*B d , UAL Mi) 

1038 LET B d , UAL Mi)=Bd4l,UAL M 

1040 LET B ( l4l , UAL MI) =B 
1042 IF Hi<>"4" AND Mi<>"5" THEN 
GOTO 1050 
1044 LET Y=Y d) 

1046 LET Yd) =Y d + l) 

1048 LET Y (I4l) *Y 
1050 LET K *1 
1052 NEXT I 

1054 IF K < >0 THEN GOTO 1018 
1056 PRINT TAB 9; X| (UAL Mi),,, 

23, 0R "‘’"S'' TH^N PR 

int C EOUIPE G0LS M 

EDIA , , , 

1080 LET 5*0 
1062 LET R=5 
1064 LET L=S 

1 0 6® IF Mt="2" OR Mt="5" THEN LE 
T L=100 

1068 FOR 1=1 TO N 
1 ?Z2- IF 6 (I, UAL Mi) <>L THEN GOTO 
1076 

1072 PRINT ' Si (I) ; " ",B(I,U 

hl nfi J 

1074 GOTO 1080 
1076 LET S=S4l 

1078 PRINT "0" AND S < 10 , 8 ;•')"; SI 
d) i " " ; B (I , UAL Mi) , 

0R THEN PR 

1NT (Y (I) *100) /100, 
1082 PRINT "" 

1084 IF (I/18«INT d/18) AND M|< 

> 4 AND Hi < > "5" ) OR <1/16. INT < 

0R Fi»*"S"i) th 

EN GOTO 1088 
1086 GOTO 1096 

1088 PRINT AT 21 , 0; " P/CONTINURR : 

1090 PAUSE P 
1092 LET U| =INKEY| 

1094 CLS 

1096 LET L=B ( I , UAL Mi) 

1098 LET R =R 4 1 
1100 NEXT I 

ll 02 RR INT AT 21,0; "P/MENU: NL" 

1104 PAUSE P 

1106 LET Ui.INKEYi 

1108 LET (J.0 

1110 GOTO 300 

2000 REM 4MELH0R ATROUE/DEFESA * 
2002 FOR 1=1 TO N 
2004 LET Y (I) =0 

2006 IF A ( 1,7) >0 THEN LET Y (I) «A 
( I , UAL Mi) /A (I, 7) 

2008 NEXT I 
2010 RETURN 

3000 REM *MENU PRINCIPAL* 

3002 CLS 
3004 GOSUB 50 

3006 PRINT AT 2,12;"0PC0E3 " 

S 0 EOUIPE5" RT 4 -' F; " ll CADASTRO DR 
RT 6,F; "2)RESULTAD0S 

DA RODADA" 

3012 PRINT AT Z , F; "3) CLRSSIFICAC 

3014 PRINT AT 10, F; "4) SZTURCAO G 

3016 PRINT AT 12, F; "5) LISTA EGUI 
PE 5" 

30J8 PRINT AT 14, F; "6) GRAUACAO" 
3020 PRINT AT 16, F; "7)TERMIN0" 
3022 INPUT M| 

3024 IP Mi<"l" OR M§>"7" OR LEN 

H|>1 THEN GOTO 3022 

3026 IF C=1 OR (Mi«"l" OR Mt>"5" 

) THEN GOTO 3036 
3028 CLS 

ou!?es R 3Szio" 21 ' 0;, ' flROUWO D = = 

3032 PAUSE 150 
3034 GOTO U 

3036 IF U*0 AND <Mi*"3" OR M|«'4 
") THEN GOTO 3040 
3038 GOTO UAL M|»10C 
3040 CLS 

3042 PRINT AT £1 , 0; “ARQUIUO De R 
ESULTADOS UAZIO" 

3044 PAUSE 150 
3046 GOTO U 
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Mantem equipamentos eletronicos 
em operagao normal durante falhas, 
mesmo momentaneas, no fornecimen- 
to de energia comercial. 

Uma nova filosofia de “no break”, 
aplicado junto ao terminal do usuario, 
evita complexos sistemas centrais de 
alta potencia, custo elevado e manu- 
tengao problematica. 

A bateria e selada, dispensando ma- 
nutengao periodica e nao exalando 
gases; permitindo sua instalagao em 
qualquer ambiente. 

Seu uso 6 indispensavel em: 

• Microcomputadores (salva-programa) 

• Caixas registradoras 

• Sistemas telefonicos KS, PBX, e PAX 

• Sistemas de seguranga 

• Sistemas de supervisao e controle 

• Equipamentos medicos (CTI) 

• Luzes de emergencia 




REVENDEDORES POWER PAK 



• BATERIA SELADA 
Instalagao em qualquer 
ambiente pois nao exala gases. 

• DISPENSA MANUTENCAO 
Nao e necessario o 
recomplemento da solugao 
da bateria. 

• TRANSFERENCE 

instantAnea 

• ALTA CONFIABILIDADE 

• protecao CONTRA SURTOS 
DE TENSAO 

• PROTECAO CONTRA 
SOBRE CARGA 



SAO PAULO - HBD - (Oil) 814-9657 RIO DE JANEIRO - SUPORTE - Tecnologia de Sistemas Digitais -(021) 580-4880 

- MICROMAQ - (021)222-6088 - DATALOGICA INFORMATICA - (021)252-7784 - MICROVELT - (021 ) 768-5804 - MICRO CONSULT (021) 259-7098 
RECIFE - RESET - (081) 325-1551 CURITIBA - BRASCONTA -(041)224-5060 232-3533 




Mais do que um modo para texto, SCREEN 1 e uma verdadeira tela 
reconfiguravel, cuja versatilidade sera mostrada neste artigo. 



SCREEN 1 no MSX 

Pierluigi Piazzi e Milton Maldonado Jr. 



O MSX possui vdrios modos de 69 12 -7039: Tabela deatributos dos Spri- 
controlar a tela, incluindo al- tes. 

ta resolufSo grafica, cores e 14336-16383: Tabela de forma^io 
texto. Um destes modos 6 o dos Sprites. 

SCREEN 1, considerado por muitos o A figura 1 mostra a organizafao da 
“primo-pobre” das telas, pois, em uma VRAM do MSX. 

primeira andlise, nSo passa de um sim- Neste artigo, entretanto, trataremos 
pies modo texto (32 colunas) que, aparen- apenas do mapeamento da tela e da re- 
temente, nada tern 
de incomum e que 
ainda perde em de- 
sempenho para o mo- 
do SCREEN 0 (40 
colunas). 

No entanto, o 
SCREEN 1 possui 
uma sdrie de recur- 
sos que podem ser 
bastante interessan- 
tes, como, por exem- 
plo, para jogos de 
a^o. 

MAPEAMENTO 
EM MEM6RIA 

A organizafao da 
tela no modo SCRE- 
EN 1 na VRAM (Vi- 
deo RAM) 6 a seguin- 
te: 

0000-2047: Tabela 
de forma^ao de ca- 
racteres. 

6144-6912: Mapa da 
tela- texto. 

8192-8223: Tabela 
de cores dos caracte- 
res (ver octetos). 

Alem destas dreas, 
existem outras que 
operam apenas com 
os Sprites. Estas areas 
sSo as seguintes: 




definifSo dos caracteres do micro, tanto 
em relafSo a forma quanto as suas cores. 

MAPEAMENTO DA TELA 

O mapa da tela no modo SCREEN 1 
ocupa 768 bytes (pois 24 x 32 = 768). 
Os primeiros 32 bytes armazenam a pri- 
meira linha, os prdximos 32 armazenam 
a segunda e assim por diante, atd os ulti- 
mos 32 bytes, que armazenam a ultima 
linha. O inicio da tela se d d na posifSo 
6144 (decimal) da VRAM. E claro 
que para ler estas pos^des deve-se usar 
a fun 9 §o VPEEK e, para alterd-las, o co- 
ni arid o VPOKE. 

TABELA DE FORMAQAO DOS 
CARACTERES 

A tabela de forma93o dos caracteres 
inicia na posifSo 0 da VRAM, ocupando 
um total de 2048 bytes, indicando 
ainda a formafSo dos 256 diferentes ca- 
racteres do micro. Um simples cdlculo 
mostra que cada carter necessita de 8 
bytes para ser completamente definido 
em forma (quern jd redefiniu os carac- 
teres do ZX8 1 ou do ZX Spectrum sabe 
como funciona). 

Para quern n3o sabe, os caracteres s3o 
formados por uma matriz de oito linhas 
por oito colunas, num total de 64 pon- 
tos. Cada linha nada mais 6 que a repre- 
senta93o binaria de um byte. Por isto, 
cada cardter necessita de 8 bytes. Deste 
modo, as pos^Oes de 0 a 7 definem o 
card ter de cddigo 0; de 8 a 15, o cardter 
de c6digo 1 (n3o confundir com “1”, 
pois este ultimo tern c6digo 49), e assim 
por diante. 

Ao se chamar o comando SCREEN, 
o computador transfere automaticamen- 
te a tabela original de forma93o dos 
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caracteres contida na ROM para a tabela 
na VRAM. Portanto, apAs redefinir seus 
caracteres, nao utilize este comando 
pois ele serd um tanto quanto destruti- 
vo! ! I 

TABELA DE CORES DOS 
CARACTERES (OCTETOS) 

Internamente, os 256 caracteres do 
MSX s3o divididos em 32 grupos de oito 
caracteres (os octetos). Cada um destes 
grupos pode ter sua cor de frente e fun- 
do definida por uma pequena tabela 
de cores (de apenas 32 bytes) que inicia 
na posi$5o 8192 e vai atd 8223. Natu- 
ralmente, os caracteres de 0 a 7 devem 
ter todos a mesma cor de frente e 
fundo; idem com os de 8 a 15, atd o 
grupo 248-255. 

Para definir a cor de um grupo, deve- 
se alterar o valor do byte corresponden- 
te (exemplo: para alterar o grupo de 
0 a 7, o byte serd 8192; se for do 8 ao 
15,o byte serd 8193 etc). 

0 valor do byte, obviamente, £ que 
contdm a cor de frente e fundo. Imagi- 
nando o byte como uma seqiiencia 
de 8 bits, teremos nos primeiros quatro 



bits o cAdigo da cor de frente, e nos res- 
tantes o c6digo da cor de fundo. Obser- 
ve que a de frente £ a cor que um ponto 
assume quando estd aceso, e a de fundo 
£ a que ele assume quando estd apagado. 
Assim, se voce deseja que o grupo de 
48 a 55 tenha frente vermelha e fundo 
ciano, comande VPOKE 8198,135. O 
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Figura 2 

endere$o 8198 corresponde d tabela que 
vai de 48 a 55; o valor 135 £ o mesmo 
que 16 x 8 + 7 (8 = vermelho, 7 = cia- 
no). 

Um modo prdtico de achar este valor 
em funfdo das cores de frente e fundo 6 
aplicar a seguinte formula: 

D=16*Cf+Cb 

Onde: Cf 6 o c6digo da cor de frente; 



Listagem 1 



10 DATA 24, 19, 10,DA,D6.FE,FE,FE,C6 
20 DATA 25,FC,FC,79,7F ,79,FC,FC,99 

39 DAI A 26, C6,FE,FE,FE,D6, 06,10,10 

40 DATA 27,3F,3F,0E,FE,0E.3F,3F,00 
50 DAfA 4,18, 3C , 3D , 3E , 3D , 3C , 1 8 , 3C 
69 DATA 5 , 1 8 , 3C , BE , 7C , 8C , 3C , 1 8 , 3C 
79 DATA 6.99,99,99,10,10,99,99,99 

DATA 16, 00, 3C, 56, FF, 56, 34, 18,00 

99 DATA O,00,7F,7F,7F,00,EF,EF,EF 

100 DATA 203,3C,7E,7E,7E,7E,7E,7E,7E 
110 DATA 32,1,32,-1 

120 Ct t > sSUREEN 1,0, 0s COLOR 1,7,7 
*KEYOFF 8DF.FINT A ZtGOSUB 460s (30SUB 4901 
UOSIJB 520»FOR 1 ^0TO3*READO8< X ) sNEXTI 
13« Cl.SsWIDm 301 FR INTCHRS( 219 > yCHRl<2# 
3) |BTfUNG4<28,2l?> ? IFOR 1*1 TO 21 (PRINT 
CHRK219) f »FOR J«1 l028sPRINTC*»CHRS<72> 
t *NEXTjsPRINTCHRl<2i?) j sNEXT I iPRINTS FR 
ING*<30,219 > t 

140 ON INTERVALS GOSUB 3503OEF FNPO<X, 

Y ) "A 1 44 *X f 32*Y s VPOKE 6B31 , 1 As T -0 

150 A==A178iD»2iF "0sP = 0sOPOKF. A,D*24iSTR 

ICi(0>Orf ION STRIG G015U8 3401FOR I«1 TO 

H X ( I>- 1 5+T l Y< I ) *1$ i NEXT I 

160 I5TRIG<0>OFFir;«8TICK (0) lIF 03THEND* 1 

D * 1EI.8E.IF L -7 THE ND«D~1EI 8E180 

170 OUT 170, 154 (OUT 170, 26 

100 IF D :1 1 THF:nD -3EL8EIFD‘“4THEND=0 

1V0 VPOKF A , D>24 iSTRICt 0 ) ON 

200 X (A A144>rtOD32lY«<A A144)\32iF0R I 
-'1 TO 4:Z«Ellir rc4THEN2*32 
210 VP OK E FNPO < X f I. > , 1 <1 ) ) , Z : 7“4 s OX»0 s DY« 
0 1 X f RND t 1 ) ) . 5 THLNDX • 8GN ( X X <1 > ) El.SEOY 
ON<Y Y<D > 

229 IF K4THEN 2A0 

230 TF VPEFK <F NP 0 ( X < I ) ■♦ DX , Y ( 1 >)><>32THFN 
IFOPEEK<FNPO<X< I >- DX,Y < } ) > ) « 32TMF. NDX« -D 
XELSfcDX*0 

240 IFOPFFK<FNPO<X<D ,Y< I ) +DY) > < >32 THEN 
1FVPEEK<FNP0<X<D ,Y<I ) -DY > > »32THENDY*= D 
YELB£DY*0 

250 U«=FNPO< X< I ) , Y< I ) ) * IT OF’ET'K < U+l > +VPF 
EK <U-1 > «-OPEEK < U • 32 ) ♦ VPE.EK < 11- 32 >»32THENG 

OSIJB410 

260 X<I>*X<D+DXlY<D«Y( I>-H>Y«IFX< I) >XT 

HEN2-5 

279 IFOPEEK<FNPO<X< I), Y<D ) >*ATHENX( D* 
20* Y< I) *15 

280 K*VPEEK <FNPO<X<I),Y(I)))*IFK >23ANDK 
<28THEN420ELSEVPOKEFNPO<X<D ,Y<I) ) ,ZsNF 
XT I 

290 K»VPEEK<DS<D>«-A>HFC< >1THEN330 
300 IF'K< >8AN0K< T219THEN VPOKE A,32*A»A« 
08(D) # VPOKE A,D+24»0UT 170.154IOUT 170, 
26 

310 IFK = 16THENF* 1 * FOR 1*1 T01 0i BEEP s NE XT I 
*ELSEIFK k 40RK»5 THEN4.‘0 
320 IFK n 203ANDF « l THEN4J0 
330 GOTO 160 

,340 IF T>0 THEN RETURN ELSE T»AiOT=D:BE 



EP i INTERVAL ON I RETURN 

350 IF T«9 THEN RETURN 

360 IF OPEEK < T ) *6 THEN VPOKE T r 32 

370 T«D-DS<DT) ITF VPFFK< T>«*32 THEN OPOK 

E T , AsRE TURN 

380 IF OPEEK < T )-8 THEN VPOKE T , 32 

390 IFVPEEK<T>*40RVPEEK (T)*5THENG0SUB47 

0 

400 INTERVAL OFF «T«0aRETURN 

410 U*FNP0(2,Y(D )«FOR J«|J TO U+27«VP0K 

E J, 32t NEXT J s RETURN 

420 CLSH.OCATE 0, 10sPRINT*VOCE FOI CAP I 
URADO" s GOT 0440 

430 CLSiLOCATE 0 , 1 0 i PR INT"VOCE C0N8EGUI 
U" 

440 INTERVAL OFFiS TRIG<0)OFF iPRINT"JOGA 
DE NOVO 7 "t 

450 A«fc*INPUT»< 1 ) i IF A4*"S"THEN130ELSEIF A 
% 3 "N" rHENRUNELSE 450 

460 CLSiFOR I»0 TO 9»REA0ZiF0R J=0 TO 7 
»REAO Bfi VPOKE VAL < "4H"+8* ) iNEXT 

• liNEXT I (RETURN 

470 FOR I*1T04 1 IFFNPO< X< D,Y<I>)< >TTHEN 
NEXTI iRETURN 

480 VPOKE T,32«X<D»2<MY< I >»13iF0R J*1 TO 
5*OLIT170, 154 1 OUT 170 , 26 3 NEXT. M RE TURN 
490 0P0KEB192, 1 35 1 OPOK FBI 93, 97 
500 VPOKF. 8194,2461 VP OK EG i 95 , 39 1 0P0KE821 
7 , 135 * VPOKE 82 19 ,176 
510 RETURN 

520 WIDTH 28ICL8IPRINT" «*** TANK AT 1 A 

c:k 

330 PRINT IPRINTSPRINT" Vote deve rouba 
r um* pedraprrt Ki«a que f ica protegida 
por quatro androides guar «J i - art , A tu* 
unlc« ar»a e umt aoque dc guerra que t. 
e noveoai quatro direcoefi e atirapara 
abrir cawinho entre oasubterr aneof 
540 PRINTiPRINT" Trnha Muilo LUidado c 
out o«an<1r oid*q, pot» ie qualquvr uai del 
tapturar voce, ni»oh»ur' k . out r a chan 
cc..." 

550 PRINTiPRINT" Apoi> roubar a pedra, 
•pa i ftp*: 1 * pa««agen < " fCHR t < 203) | " ) qu 
♦: ficano canto superior da tela. Nao I 
sair (i«m a pedra, pois isto e desa 
ibtroso e de-saconse lhavel . . 

560 IS»INPUTt<l> 

570 CLSsPRINT" As let las de cursor s *r 
v«ap«r« control ar o tanque. Us^as tecla 
s laterals para vi-rar, a tecla de c i m 
a para a-vancar e a barra de ttipaco pa 
ra atirar." 

580 PRINTsPRINTiPR INTCli "Y ... Seu t anq 
u«" sPR I NT iPR INTCf j "D ... Andro I de"*PR IN 
TiPRlNTC*p"P ... D l aaant e":PR INT tPRINTC 
HR 1 < 2 1 9 ) t" ... Fr on teira"iPRINTsPRINrCl 
t"H ... Pared* subt er r anea" : PR INTsPR INT 
CHR1 < 203) | " ... Saida"iPRINT 
590 PRINTiPRINT "Aperte uma tecla p/ jo 
gar"( I1*INPUT%< 1 ) sRETURN 



Cb 6 o c6digo da cor de fundo. 

Reciprocamente, podemos determi- 
nar os eddigos das cores que foram usa- 
das a partir do valor do VPOKE : 
Cf=D/16 
Cb=D MOD 16 

Para exemplificar o funcionamento 
de tudo isto, a listagem 1 mostra, a se- 
guir, uma adapta^o do programa 
TANK ATTACK, extra ldo do livro 
“Cole^So de Programas para MSX”, lan- 
<?ado recentemente pela Aleph PubUca- 
?5es. 

Inicialmente, o programa redefine os 
caracteres alterando os dados da tabela 
de forma^Io dos mesmos. As informa- 
?6es de cada linha DATA (10-100) con- 
tem nove dados: o primeiro 6 o cAdigo do 
cardter a ser alterado, e os outrosoito in- 
dicam como sera formada cada uma das 
dto Knhas que compAem o carater. A sub- 
rotina responsdvel pela leitura das ins- 
trufAes DATA estd na linha 460. Um 
loop FOR- NEXT exterior £ responsdvel 
pela varredura dos cAdigos dos caracte- 
res e um loop interior redefine cada um 
dos caracteres apontados pelo loop ex- 
terior. A instru 5 do DATA da linha 110 
n5o entra neste processo; apenas define 
a matriz de dire?Aes de movimenta^do 
do tanque. 

A sub-rotina das linhas 490 a 510 
£ uma utilizafdo da propriedade dos 
octetos como explicado acima: ela 
modifica as tabelas de cores seguindo 
a conven^do que jd foi mostrada. 

O jogo £ auto-explicativo, e as instru- 
?Aes estdo localizadas entre as linhas 
520 e 590. 

Uma tdcnica interessante para se usar 
no modo SCREEN 1 £ mapear a tela em 
coordenadas X e Y. Existe uma forma 
bem conveniente de fazer isto, basta 
converter o valor de X e Y em um nu- 
mero de memAria atravds do comando 
DEF FN (linha 140), ou seja, a funfdo 
calcula o endere?© correspondente a po- 
si 9 do da tela de coordenadas referencia- 
das em FNPO. 

0 cenario de fundo £ impresso com 
o comando PRINT, que usa o cardter de 
controle (CHRS(l)) para poder impri- 
mir os caracteres de cAdigo menor que 
32. As partes mAveis sdo colocadas 
na tela diretamente com auxfiio do 
comando VPOKE, que equivale a impri- 
mir na tela o cardter do cAdigo referen- 
ciado. 

m 
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A era 
Sinclair: 

mudancas no mercado 

# 



Saiba como se tem comportcido os micros da linha Sinclair 
no exterior e Brasil ; conhega as atuais tendencias deste 
mercado, seus novos equipamentos e futuros langamentos. 




Os representantes 
da linha Sinclair no 
Brasil tiveram bastante 
sucesso. Hoje, os 
compativeis com o 
ZX81 ji ndo 
vendem tdo 
bem (TK8S; 

CP-200 e Ringoj , 
maso TK90X- 
unico Spectrum 
nacional - ainda 
atrai o ptiblico. 



A maior revolufao na area de mi- 
crocomputadores pessoais co- 
me<;ou na Inglaterra em 1980, 
impulsionada pela genialidade 
criativa de um homem: Clive Sinclair. 
As maquinas que levam o seu nome con- 
quistaram milhOes de usuirios em todo 
o mundo, difundindo a atividade da 
microcomputa^ao de uma forma como 
nunca havia ocorrido antes. 

0 primeiro equipamento lam;ado por 
Sinclair que fez sucesso foi o ZX80, um 
micro baseado no Z80, com uma UCP 
que pelos seus recursos — facilidade de 
utilizafao e baixo pre$o — conquistou 
o mercado. 

0 ZX80 custava menos de US$ 
100 e possuia uma memoria RAM de 
1 Kb, um poderoso sistema operacional 
armazenado em 4 Kb, teclado de mem- 
brana e saida modulada de video para 
a antena de um televisor convencional. 
Ele tambem permitia o armazenamento 
e leitura de programas em fita cassete 
comum. 

Estas caracteristicas do seu hardware 
e a possibilidade de usar alguns eletrodo- 
mesticos (televisor e gravador cassete) 
como perifericos, aliadas ao baixo custo 
e &S facilidades de utiliza 95 o do sistema 
operacional, foram fatores determinan- 
tes no sucesso de vendas alcan^ado pelo 
ZX80, o primeiro triunfo da Sinclair 
Research, empresa criada por Sir Clive 
para projetar e desenvolver equipamen- 
tos eletronicos. 



Menos de um ano ap 6 s o surgimento 
do ZX80 (1980) a Sinclair Research 
lan?ou o ZX8 1 . Em aparencia, ele era 
bastante similar ao ZX80, porem a sua 
ROM vinha agora com 8 Kb, onde fo- 
ram incluidos novos comandos, fum;5es 
matemdticas mais complexas e rotinas 
para possibilitar a utilizasfo de impres- 
sora. Alem disso, ao contrdrio doZX80 
que so podia operar no modo FAST, o 
ZX81 permitia selecionar duas velocida- 
des de processamento: FAST ou SLOW. 
O sucesso obtido pelo ZX81 foi tao 
grande que ele serviu de modelo para de- 
zenas de outros microcomputadores em 
todo o mundo, o que difundiu ainda 
mais esta linha de equipamentos. 

Entretanto, mesmo com todo o su- 
cesso alcan^ado, Sir Clive nao ficou sa- 
tisfeito, e no inicio de 1982 ele surpre- 



endeu o mercado com um micro que faz 
sucesso ate hoje: o ZX Spectrum. O 
ZX Spectrum e uma maquina com um 
design diferente do ZX81, embora man- 
tenha algumas de suas caracteristicas. 
Ele tem um teclado aperfei^oado, me- 
moria RAM minima de 16 Kb (expansi- 
vel ate 48 Kb), ROM de 16 Kb, 8 cores, 
alta resolu 5 ao e um novo conjunto de 
instru 56 es que incluem, entre outros, os 
comandos READ, DATA e RESTORE, 
capazes de manipular arquivos com va- 
ridveis alfanumericas mais facilmente do 
que com os comandos antes disponfveis. 

A SITU A£ AO NO BRASIL 

Agora, quase cinco anos ap 6 s o sur- 
gimento do primeiro micro compativel 
com a linha Sinclair no Brasil (o NE- 
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Z80), algumas modifica^Ses no mercado 
de micros come?am a determinar novos 
rumos para esta categoria de equipa- 
mentos. 

Cada urn dos segmentos responsaveis 
pela consolida?3o destes computadores 
no Brasil, desde os usuarios, fabricantes, 
software -houses, lojas e magazines, esta 
assumindo posturas adequadas a nova 
realidade do mercado nacional de micro- 
informdtica, pois com o surgimento de 
maquinas de pre 90 acessivel e dotadas 
de recursos grdficos, visuais e sonoros 
mais sofisticados como os micros com- 



por disco, o que so e possivel com um 
micro de maiores recursos”. Segundo 
Fernando, apos adquirir o CP 400, o 
CP 200 ficou sem uso e “vende-lo foi 
a conseqiiencia natural”. 

Outro desses usuarios e Luis Paulo 
S. Santos, Tecnico-de-Metalografia. Ele 
possui um TK82C hd quatro anos e 
agora esta se desfazendo do seu equipa- 
mento para adquirir novas placas de 
expansSo para o Apple II Plus que com- 
prou. Segundo Luis, o TK82C “ja nlo 
satisfazia as minhas necessidades profis- 
sionais, pois eu necessitava de um micro 

Os perifericos 
oferecidos no 
mercado nacional 
foram basicamente 
interfaces para 
impressoras 
convencionais, 
joysticks, expansoes 
de memdria, gerador 
de som, redefinidor 
de carac teres e 
modems. 



Segundo Kovari, o TK90X e atual- 
mente um grande sucesso, como atestam 
as vendas no Brasil e as exporta95es 
para paises como o Uruguai, Argentina, 
Chile, Mexico, Colombia e Venezuela. 

Em rela 9 ao a demora da chegada do 
TK90X no mercado brasileiro (meados 
de 1985), Kovari discorda. Para ele, a 
entrada do TK90X foi no momento 
exato, pois com a base de equipamentos 
vendidos em todo o mundo (mais de 
10 milhoes) e os mais de 10 mil progra- 
mas disponiveis, e possivel oferecer 
uma tecnologia muito avan 9 ada e prin- 
cipalmente consolidada, com uma gran- 
de biblioteca de software e livros a 
dispos^So do usuario. 

A Microdigital, segundo Kovari, 
“aposta no sucesso do TK90X” e por isso 
esta colocando progressivamente no 
mercado perifericos e acessdrios como o 
light pen (disponivel desde o fim de 
mar 9 o). Quanto a impressora TK Prin- 
ter, ele alega que a empresa ainda 
nSo a colocou no mercado “por pro- 
blemas de mecanica fina e importa 92 o 
de componentes”, assegurando porem 
que ate o final do ano todos os proble- 
mas deverao estar solucionados. 




pativeis com o TRS-Color e MSX, alia- 
do a queda no pre 90 das UCPs de 
Apples, o interesse dos usudrios pelos 
micros da linha Sinclair (a exce 9 ao do 
TK90X) diminuiu sensivelmente. 

Esta queda no interesse pode ser fa- 
cilmente observada, pois quern desejar 
adquirir um micro n5o precisard procu- 
rar muito: bastara abrir os jornais de 
classificados das grandes cidades. Eles 
estSo cheios de anuncios (principalmen- 
te de venda) de micros da linha Sinclair. 
Nestes jornais, dezenas de usudrios 
oferecem equipamentos por pre 90 s bas- 
tante acessiveis, sendoque.comquantias 
que variam de Cz$ 400,00 a 1.200,00 
e possivel adquirir um NEZ80, TK82, 
CP 200, TK85 (16 ou 48 Kb) ou outros 
compat l'veis com o ZX8 1 . 

Nesta disputa para vender o seu mi- 
crocomputador, alguns usuarios tentam 
aumentar o interesse do comprador, 
oferecendo junto com a maquina peri- 
fericos (joystick, gravador, etc.), livros 
ou mesmo software em fita cassete, o 
que reduz ainda mais o pre 90 final do 
equipamento. 

Os motivos que levam muitos usua- 
rios a desistir de seus equipamentos va- 
riam desde a necessidade de dinheiro, pa- 
ra adquirir outro micro, ate o interesse 
em desocupar lugar. Porem, a razSo alega- 
da pela maioria e a necessidade de uma 
maquina com maiores recursos. 

Fernando de Assis Gon 9 alves, Auxi- 
liar- Administrative, e uma dessas pesso- 
as. Ele trocou o seu CP 200 por um CP 
400 porque “precisava de uma planilha 
eletronica ou um processador de textos 
eficiente com um sistema de acesso 



com alta resolu 9 ao, cores e unidade de 
disco flexivel, recursos que a linha 
Sinclair nSo possui”. 

Nem todos, porem, tern a intenqao 
de abandonar definitivamente a linha 
Sinclair por um equipamento com uma 
filosofia totalmente diferente a nivel de 
software e hardware como o Apple, 
Color ou outros. Giangiacomo Ponzo 
Netto, colaborador de MICRO SISTE- 
MAS, preferiu trocar o seu TK82C por 
um TK90X. Segundo ele, esta troca foi 
uma evolu 9 ao natural: “como eu gosto 
de desenvolver jogos, o TK90X satisfaz 
plenamente as minhas necessidades, alem 



disso ja estou acostumado com a filoso- 
fia dos equipamentos dessa linha”. 

Essa preferencia pelo TK90X, obser- 
vada em diversos usuarios, parece con- 
firmar a aceita 9 ao destes micros pelo 
mercado. George Kovari, Presidente da 
Microdigital — fabricante dos TKs 
explica essa escolha como natural, pois 
& medida que o usuario setornamaisexi- 
gente “a tendencia e vender o TK85 e 
partir para outro micro mais avan 9 ado”. 



O aspecto da comercializa 9 So dos 
equipamentos da linha Sinclair e outro 
assunto que merece ser analisado. Para 
avaliar a atual situa93o, nada melhor 
que pesquisar os dois segmentos respon- 
siveis por esta atividade: as lojas e os 
magazines. 

Em rela 9 lo & linha Sinclair, parece 
que a velha briga entre as lojas e os ma- 
gazines esta definida, com a vitdria des- 
tes ultimos. No fim de tudo, o argumen- 
to que provou ser correto foi o pre 9 o. 
So para se ter uma id&a, por n3o terem 
condi 9 oes de competir em pre 90 e for- 
mas de pagamento com os magazines, 
mais de 50% das lojas que trabalhavam 



com esses equipamentos ja nSo mais o 
fazem. 

Fernando Cesar Vaz, responsavel 
por uma loja no Rio de Janeiro, a Sin- 
clair Place, desabafa: “desistimos da li- 
nha Sinclair porque as vendas estavam 
caindo cada vez mais. So para se ter 
uma id£ia, se antes vendiamos 100 
unidades por mes (entre Ringo e TK85), 
hoje n§o conseguirtamos vender 10”. 
Para Fernando, outro motivo que expli- m 



Infelizmente, a pequena 
impressora, sonho de 
muitos usutlrios, ainda nao 
chegou. Modelos 
estrangeiros (como a 
Timex 2040, da foto) sao 
encontrados nos 
‘ ‘muambeiros ’ ' das grandes 
cidades. Porim a TK 
Printer, prometida pela 
Microdigital, deve sair no 
fim do ano. 
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A ERA SINCLAIR: MUDANQAS NO MERCADO 



Evolugao Internacional 



Ao contririo da situagao atualdo merca 
do brasileiro, a linha Sinclair (ZX81 e ZX 
Spectrum) ainda i bastante popular no ex- 
terior, principalmente na Inglaterra, onde 
podem ser adquirklos tanto os equipamen- 
tos como software, acessdrios, perifiricos 
etc. 

Para o ZX81, por exemplo, i passive I 
conectar expansdes de memdria, unidades 
de disco de 5 1/4", tec lad os eletromecani- 
cos, sintetizadores de som ou voz, light- 
pen, modem e muitos outros acessdrios. 

Ji os usuirios do ZX Spectrum contam 
com urn repertdrio bem mais vasto de peri- 
firicos, alim dos jd citados para o ZX81. 
Eles incluem impressoras tirmicas e matri- 
ciais (inclusive a cores), unidades de disco 
flexivel de 3 e 3 1/2", monitores de video 
coloridos, pranchetas grdficas e ate joysticks 
operados por infravermelho. 

Algum tempo apds o langamento do ZX 
Spectrum (em 1982), a Sinclair Research 
introduziu no mercado um novo dispositivo 
para armazenamento de dados e programas 
que facilitasse o trabalho do usudrio: o 
microdrive. Composto por uma unidade 
automdtica de leitura e gravagao que aciona 
uma fita cassete de dimensoes reduzidas 
com capacidade para guardar 100 Kb de 
informagdes, o microdrive proporciorut um 
modo econdmico, simples e confidvel do 
usudrio acessar os seus programas. Aqui no 
Brasil, o microdrive ndo estd nos pianos da 
Microdigital. 

SINCLAIR EM APUROS 

A hist dr ia da Sinclair Research, entre- 
tanto, nao i marcada somente por suces- 
sos, pois mesmo com toda a criatividade de 
seu fundador e os larifamentos de equipa- 
mentos e perifiricos, a empresa nao conse- 
guiu escapar da grande queda na venda de 
micros, ocorrida a partir do final de 1 984. 

Isto acarretou uma sdrie de problemas 
financeiros d empresa, jd que como a previ- 
sdo de vendas nao se concretizou houve a 
formagao de um grande es toque de equipa- 
mentos. Esta situagao, combinada com os 
baixos indices de venda de outros produtos 
da companhia (como a TV de tela de cris- 
tal liquido, por exemplo), agravaram ainda 
mais sua situagao financeira. 

Para ajustar-se a esta nova conjuntura, 




a Sinclair Research tomou algumas provi- 
dencias: reduzir os pregos de seus micros 
e aprimorar a qualidade de seus produtos. 
Alim disso, a empresa passou a dar maior 
atengdo ao equipamento mais vendido no 
mercado, o ZX Spectrum. 

Foi com base nesta estrategia que a 
Sinclair lancou, em meados de 1984, o ZX 
Spectrum Plus, um micro com a maioria 
das caracteristicas bisicas do ZX Spectrum 
comum, apresentando porim uma memdria 
RAM de 64 Kb. caixa mais robusta eum te- 
clado aperfeigoado, tudo por um prego in- 
ferior a US$ 150. 

Outro langamento da Sinclair, em 1984, 
foi o QL (Quantum Leap - Salto Quanti- 
co), um microcomputador destinado a usud- 
rios pessoais mais exigentes. O QL i dotado 
de um microprocessador de 16 /32 bits (MC 
68008); processador de som e teclado (In- 
tel 8049); 128 Kb de RAM; oito cores; 
resolugao grdfica de 512 x 192 pontos; 



duas saidas RS 232-C e ROM de 48 Kb com 
sistema operacional prdprio (QDOS) con- 
tendo linguagem BASIC e quatro progra- 
mas aplicativos: processador de textos, 
banco de dados, planilha eletronica e fun- 
gdes grdficas; recursos bastante avangados 
para um micro que pode ser adquirido por 
menos de USS 300. 

Estes langamentos, entretanto, nao live- 
ram a aceitagdo esperada e a situagao da 
empresa tomou a piorar, culminando em 
meados do ano passado com a venda e trans- 
ference do controle aciondrio das maos de 
Sir Clive Sinclair para o empresdrio Robert 
Maxwell. Com esta mudanga, Sir Clive 
passou a se dedicar exclusivamente ao pro- 
jeto e desenvolvimento de novos produtos, 
em sua mansdo-laboratdrio. 

Agora sob nova diregao, a Sinclair 
Research estd adotando novas estrati- 
gias, visando nao so consolidar a posigao em 
seu pais, como tambim ampler o seu mer- 
cado consumidor. 

Pee primeira vez, a Sinclair concedeu o 
direito a outra empresa (a Investronica, da 
Espanha) de fabricar um equipamento ine- 
dito na prdpria Inglaterra: o ZX Spectrum 
128. A Investronica langou o equipamento 
em 1985 e a Sinclair espera langar o ZX 
Spectrum 128 na Ingeterra ainda neste se- 
mestre. 

Acomodado numa caixa metdlea, o ZX 
Spectrum 128 incorpora diversas inovagoes 
como fonte de alimentagao interna; memd- 
ria RAM de 128 Kb; RS-232; saida direta 
para monitor de video colorido padrao 
RGB; teclado aperfeigoado ( com teclado 
numirico destacado); alto-falante embutido 
e um circuito integrado gerador de sons, o 
AY -389 10. O ZX Spectrum 128 possui uma 
ROM de 32 Kb orlde estao contklas todas 
as instrugoes do ZX Spectrum comum e 
tambim um sistema operational prdprio, 
com comandos para utilizar os novos re- 
cursos sonoros e perifiricos. 

Em relagao aos pianos Juturos, a Sin- 
clair tern dois projetos ainda para este ano. 
Um deles i o Pandora, um micro portatil 
com tela de cristal liquido baseado no 
ZX Spectrum, e o outro i o Enigma, um 
micro de 16 bits com 1 Mb de RAM, teclado 
profissional, duas unidades de disco flexi- 
vel de 3 1 /2” e recursos de cor, som e alia 
resolugdo. 



ca a queda de vendas de equipamentos 
como o TK85 e CP 200, e explicado 
pela mudanga no nivel de interesse dos 
atuais compradores, que “jd ndo ficam 
satisfeitos com os recursos oferecidos 
por estes micros”. 

Opinido diferente tern Adilson L. 
Barbosa, Gerente de Vendas das lojas 
Audio , em Sdo Paulo - empresa que co- 
mercializa micros da linha Sinclair ha 
quase quatro anos, embora as suas maio- 
res vendas ocorram nos equipamentos 
das linhas Apple, MSX e IBM-PC. Se- 
gundo Adilson, apesar da queda na pro- 
cura, a Audio ainda esta comercializan- 
do o CP 200S e o TK90X. Ele afirma que 
o primeiro 6 mais procurado pelos ini- 
ciantes da drea de informatica e o se- 
gundo pelos usudrios avan 9 ados e turis- 
tas. • 

Adilson acha que a linha Sinclair 



€ ideal para quern estd iniciando, contu- 
do — continua — , “os que exigirem um 
equipamento com maiores recursos, cer- 
tamente irdo procurar um Apple ou 
MSX e ndo um Sinclair”. 

Para os magazines, entretanto, a con- 
juntura ndo 6 tdo favordvel como pen- 
sam alguns lojistas. Luis Claudio, ven- 
dedor da Mesbla (RJ), explica a situa- 
9 ao: "em relafdo aos microcomputado- 
res da linha Sinclair compativeis com o 
ZX81 que n6s comercializamos (TK85, 
CP 200S e Ringo), posso dizer que nos 
ultimos tres meses ndo conseguimos 
vender mais que nove equipamentos, e a 
tendencia 6 que estas vendas continuem 
a cair”. A situagdo do TK90X, segundo 
Luis, e diferente, pois alem das vendas 
estarem excelentes, ele e um “micro 
com recursos que atraem os clientes, 
principalmente os iniciantes em progra- 



mafdo e os pais que desejam dar um 
micro de presente aos filhos e ndo dis- 
p5em de verba para comprar um Apple 
ou MSX”. 

A opinido de Cldudio sobre os mi- 
cros compativeis com o ZX81 6 similar 
a de Fdbio Mendia, Superintendente de 
Opera 9 &es da CP Computadores. Segun- 
do ele, a empresa continua produzindo 
o CP 200S, principalmente para manter 
a filosofia da empresa que e oferecer 
produtos para todas as faixas de usud- 
rios, desde o hobbysta ate o profissio- 
nal. Fabio enfatiza que o CP 200S 6 um 
microcomputador limitado em recursos, 
e portanto e adequado para quern dese- 
ja se iniciar na computa 9 do e ndo tern 
pretensdo de aprender muito. 



Reportagem de Carlos Alberto Azevedo e Lia 
Bergman 
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O SOFTWARE PARA O SEU MICRO 



Na compra de qualquer // 
produto Softline, // 
receba o informativo TILT\^ 
com a descrigao de 
programas, dicas, novidades 
e informagdes tecnicas. A 



F ■ pode Mr gravado em fit# K7 
J > uso obrigatdrk) de Joystick 
48 = requer 48 K de RAM 
64 « requer 64K de RAM 

JOGOS • APPLE II 

-Cz$ 00,00 — 

Sabotage (F) ewte os pAra-quedistas 
Sargon (Fi - logo de xadrez 
0m»W«r(F)- logo de poker 
Blackjack (Pi |ogo Oe 21 (cartel 
Cltectarat^-jogodedarnas 
Hare JF] resgate as rmneiras perdtdos 
Robatron (F) ■ destrua os roods nmgos 
Falcons (F)- logo bpoPhenu 
Night Mission (F) ego de pinball 
Fast Gammon (F) • logo de gamAo 
Othello (F)- jogo detabuleiro 
Lode Runner pegue os tesouros 
Olympic Decation jogos olimcxcos 
Space Raiders !R de too centotea 
Gorgon |F| - jogos dos Russos 
The Eliminator (F) comb8te especial 
Night Crawler (F) - enfrente as centopAias 
Space Eggs iff)) • eager evos espacias 
Autobahn (F) • corrida de carros 
The AateraM Raid (F) • bpo astertmles 
Nerd kit Mack - perigos na corstrugAo 
Chopdlfter (F)J| - resgate com hekebptero 
See Dragon pilote o submarine 
Spy*! Demise (F) • logo de agente secrete 
Star Blaiar combate aereo 
Viper <F) - alinnente a cobra 
Ceram Citatum - penetre na caverna 
Moon Pahol (F) • patniha lunar 
Ms Pac Men (FI - a namorada do Pac Man 
Mario fine (F) MAno contra o gorte 
luck Rogers peote sua nave em "Zoom" 

Pitfall II ■ aventuras nas cavemas perdidas 
Castle Wotfensteki engane os naziste 
Beyond Castle Wolfe niteln ■ mate Hitler 
Aztec ■ deerfre o enigma da pirirrade azteca 
Stellar 7 • combate no espago em 3D 
Super Buny - combata as pragas 
Allan Ambush (RJ) - jogo tipo Arcade 
Out tost <F) defenda a estagAo especial 
Daimder (P defender original 
Dog Fight 11(F) cortrofto de jatos 
Star lek • jomada nas estrclas 
Jellyfish ■ pilote urn submanno 
Stasbbuckler It duelo de espadachms 
Temple Apshel • aventura no tempio 
Flight Simulator (F) - simulador de vto 
One on One (J) basquete com 2 jogadoras 
Span Change poupe para subir na vida 

Cz$ 170,00 

Karataka - perfeita simulag Ao de karate erf rente vinos adver 
sAnos e uberte a pmcesa do Akuma Conan locate e des 
true. Volta em vAnas tases e com drferentes obstkulos 
OhaetbustmfJI' monte imaempresadecaga aos frtemas 
ecomece sua aventura 

Summer Gamae (64) - 8 modalidades comptetas de afletamo, 

com as mais emocionantes provas olimpicas, de verio 

Summer Gamae II (64) - 7 novas modalidades olimpicas 

Winter Gemes (64) • 7 provas atJAticas de irwemo 

SPY m SPY - drvertida agAo oe espiAo contra espito. baseada 

ros personage n$ da revista MAD 

Ml - fmttebca perwgiagAo com vAnas tees Graf icos incn- 

veneacio rapda 

Saigon ll ■ super logo de iadraz 

Sky Foe (Jf64) ■ super simulador de vto com rowers ytuagtes 

de combate em vinos niveis GrAficos sofisticados 

F15 Strike Eagle |J/64| ■ nertvet simulagAo de um caga a i»to 

F15 Eagle com combate emvAnos niveis, Grecos corrotexos 

Pinball Constmetor Sat (J) ■ monte suas prbpnas mesas de 

fliperama 

Ttenrtranianesta aventura, saheaprncesaSabnnadoster- 

riveis perigos da terra de Drkcula 

kchan (64) ■ tartAsbco jogo de estrategia. bpo xadrez, com arv 

magAodegrAficos 

1A.M. ■ produz uma amuiagAo da voz hinana 

Mask of the SurvaventumgrAfka.NoMAxrcavocAdeveacnar 

ostaaouros perdidosde ima anbga civilizagAo 

Kabul Spy ■ anvotose note thrter de esponagem terdooAfe- 



K tAocomocenano 
Crystal > amrtura gi 



MCiyatal‘aiierturagrtficabaseadanof*ne 'CnstalEn- 

cantado' . com vAnos cerbnos 

Right Simulator II ' pilote um Piper 181 totaimente equpado, 



atrtiAs de realfsbeos cenAnos. Quando vocA esbver prepara- 
do enfrente i/n combate real 

Sevan ClttN of Gold |J/64) aventna grAhca. VOcA deve acnar 
o Nwo Munda retomando com ouro e gidna para a Coroa 
The Incrivel HllK aventura grAfica baseada na revista do 
milk. VocA deve dotar este mcrfvel ser de mteltgAnca 
Capltain Goodnight (Jf64| - sua rmssAo A SALVAR 0 M UNDO 
das garras do (snivel Dr Maybe, locahzando e destrumdo a ar 
ma do /uizo final 

Rescue Raiders |J(64) pkotedo um helicbptem comande 

suas tropas. durante essa -ncans^ei batalha 

Bruca La* (J| ■ lute karatA como o famoso Bruce lee Mate os 

ninjas e os lutadores de sumdt e complete as mais incriveis 

tees 

Mr te (J) - vocA A um mAgco que devera croteger o seu pomar 
de uma temvel praga 

Ware it Carman Sandiago |64| • seta um detebve que deverA 
prender o culpado pelo route Viape peio mundo edetando 
ptstas 

utiutArios/apucwivos - APPLE II 
-OS 360,00- 

Vlelcak - planilha de cAlciios 

Vlsiplot/Ylsltrand gerador de grAficos 

VlMdax organizador de abvidades 

Vlsfflte gerador de banco de dados 

VlUterm programs de comumcacio via MODEM 

Vlsichedule • anAlise fmanceira PtRTTCPM 

Apple LOGO comptlador 

Apple FORTRAN (CP/M) compkador 

Apple Mechanic - utihtArio grAftco 

Alpha Plot gerador de grAficos para uso comercial 

GrafORTH compilador 

Lockimtth SOfF utilitAno de cbpta 

Nibbles Away II/C3 - uwiteno de cdpia 

The Graphics Magicians ammador grAfico 

The Graphics Solution editor de grtbeos 

Print Shop gerador de impresses grAficos 

Magic Window II pnxessador de textos 

- CzS 520.00 - 
Ttirbo PASCAL (CFVM) • compkadot 
Tak* 1 - super ammador grAfico 



JOYSTICK ANALOGICO • APPLE II 
- OS 360,00- 

JOGOS • CP-300/ 500 

-as 60,00- 

Flight Simulator (F) - simulador de vdo 

Olympic Decation (F) • logos oiimpicos 

Hoppy (F) - salve o sapo 

Armored Patrol (F) patniha de tanques 

Umar Lander |F) - pouse nas crateras da lua 

Allan Defense (F) - proteja se dos irrvasores 

Meteor Mission (F) - cagada especial 

Chrthousa (F)- proteja o seu banheuo 

Robot Attack (Fi -destrua os robds 

S*a Dragon |F) • pilote um submanno 

Missile Alack (F) - defenda sua cidade 

Scarfman (F) • jogo tipo Pac Man 

Cavern (F) • escape vivo da cavema 

P»ne tutor (F) • aprofunde-se nas cwmas 

State Scort fF) de«enda-se da frota immiga 

Assault |F) - fuja dos Ageis nirmgos 

Demon Saab (F)-acabe com os enormes pbssaros 

Cosmic Fighter (F) • jogo tipo Invasores 

Pamte (F) -escape dos robds 

Pinball (F| ■ tipo fliperama 

Crazy Painter (F| - pvite a tela, se puder 1 

CMckan |F) ajude a gelmha 

Galaxy Invasion if;. • tipo Irrvasores 

Sarfon (F) - jogo de xadrez 

Aillo(F| - aventura grAflca 

Zork I super wentura 

Spook House aventura grAfica 

Toxic Dumpslt* - aventura grAfica 

Adventur 4 aventuras drferentes 

Fucf uc • programs pomogrAfico 

Ghosts <F| - cace os fartasmas de t*na cidade 

Rally - complete o trajeto de un rady 

uTurr/tRios apucam/os - cp-soo 
-as a5o,oo- 

Creator gerador de programas BASIC 
Vlslcalc ptamiha de cAkrolos 



Cion* III - copiador rap-do de discos 
ACCEL 3/4 compilaoor BASIC 
Bascom compilador BASIC 

- CzS 560,00 - 

NEWDOS780 2D sistema operacona 
DOSPLDS 3.5 - sistema operadonal 
Arranger N Brqurvo de diretenos 
Profile HI* gerador de banco de dados 
SuperSCRIPSIT - processador de textos 
ZEUS - super editor assembler 
DIsnOATA super disassembler 

-CzS 670, 00- 

Producer gerador de programas 
Super Utility 3.2 super utilrtAno 



JOGOS • SPECTRUM/TK 90X 
-CzS 70,00- 

Flghtar Pilot (48) pnote tan F-15 Eagle 
Flight Simulation |48| - simulador de vfo 
TerrorDaktll 40 (48) agAo na terra perdida 
TYider (40) combrcio e agAo no espago 
Styx |48} a^de no labinnto e mate a bruna 
Tutankhamun (48) - explore a tumba do farao 
Tornado (48) p-iote o aviao. CenAno em 30 
Match Wnt |48} • fantastic© tAms em 3D 
Cavelon |48| - uma aventura no castelo 
AD Aitra (48) salve os soldados Agio em 30 
Galaxy Attack (48) vanas bases no espago 
Chan (48i jogo de xadrez com vAnos nives 
Android 2 (48) mate os roWs CenAro em 3D 
Delta Wing (48) puote jn caga F16 em 30 
Manic Miner (48) recotia os objetos da mma 
Potty Painter (48) preencha os quadrados 
Pool (48) fantAsbco logo de smuca 
Pllrtere |48| • recolha as pegas do comcutador 
Plromania |48| aoague os rcindios 
The Pyramid |48) - aventura na pirAmuje 
3D Tank Dual |48} super batadia de tanques 
3D Starttrika (48) guerra ^as estretes 
Son of Blagger (48) recodia os objetos 
Piytron (40) defenda sua base lunar, em 3D 
WhMlla (48l pkote uma moto ''o subterrAneo 
Fall Guy |48) - baseado "o Nme DURO NA QUECA 
Boofa-Boo (48) • ajude o sapo savando a mocima 
Arcventura (48) • mate o Conde Drteula 
Huckback |48| - ajude o Corcunda de Notredame 
Harrier Attack (48) - combate nas Malvinas 
SPY v SPY (48) • guerra dos espiftes, em 3D 
Knight Lore (48| - aventura no castero. em 3D 
Fred (48) ■ desvende os pergos da primide 
Fantastic Voyage |48| - entre no corpo humano 
Alrvroff (48) baseado no senado AGUIA DE FOGO 
1994 (48) ■ uma mssio no futi/o 
River Raid (48) peroorra de aviAo um no pengoso 
Blade Alley |48} • desafio especial em 3D 
Mazlaca |48| - cace um tesouro no labinnto 
3D Ant Attack |48) ■ salve a moga das formigas 
Android* (481 - aventura no latxmto 
Chew Cake (48) - salve os hunanos com sua nave 
Scubedlv* (48) rocodia as pArolas do mar 
Penetrate |48| • destrua o reator 
Jataet Willy |48| - recoma os objetos 
Full Throttle |48) • corrida de motos. em 3D 
ChKjuered Flag (48| - martema a POLE POSITION 
Wotm at Sea (48) ■ mantenha o navio flutuando 
Tteahman |48| - ajude a manter a cidade Imnoa 
Aquaplane (46) uma lancha num mar de pengos 
tenp Manager |48| - pje os obstAcutos 
Night Gunner (48) pilote um bombardeio em 3D 
Ghcitbusters |48) - caga aos fantasmas 
Blind Alley (48i baseado no fllme TRON 
Beach Mead (48) - irvada uma praia immiga protegida 
Chuckle Eggi (48) recolha os cwos em virias fases 
Abe Atac 30 (48) peroorra um castelo assombrado 
Mugiy (48) cortele o sindcato do enme 
Sabre Wulf |48| - aventura grAftca na floresta 
Autonomla |48| saga de um montador de carros 
Kokotonl Wlf (48) - pengos em vines Apocas 
Tlmanog (48) • aventura grAfica na idade mbda 
Koimlc Kanga (48) ajude um carguru voador 
PAgatui (48) - destrua os ahenjgenas no labinnto 
Special Delivery (48) uma aventura com o Papai Nod 
Lazy Jones (48) enfrente vAnos videogames 
Wimpy (48l - uma awntura bpo Burguemme 
Decathlon 1 (48) - 5 emooon antes provas ofimpicas 
Decathlon 2 (48) • mas 5 prows olimpicas 



Strip ftker (48) dispa sua mcrhel opemente 

Esquimo Eddie (48) uma aventura na artetica 

Kong (48) ajude Mario a saiw a moga do gorea 

TurtJ Fnittl (48| • mcrivel caga mqueis sonoro 

Pinball (48) simulagAo de um pinball 

Froez (48) • destrua o nnvgo com os cubos de geto 

New Pokar (48) - clAssico jogo de poker 

Horace skiing (40) esqu* montanha abauco 

Hungry Horace • drvertido Pac-Man 

Horace It Sptdera enfrente as aranhas 

PSSST salve sua plants das pragas 

Cookie ajude o cozmhero contra o it 00 UXO 

TranzAm pegue os trofcus nos EUA 

JetPK - corstrua os loguetes 

Spectres • i*n jog© dteente bpo come-come 

Escape saia do labinnto sem ser mono 

Lab 3D sera que vocA s» dessa^ 

Ground Attack jogo tipo Penetrate 
Meteors destrua os meteoros e naves 
Compete Zone batalha de tanques em 3D 
Astro Blaster defends o impAno do mirrago 
Arcadia sobraviva na travessa fata 
Space Intruder jogo too Invaders 
Planetoids aventura espaciv com combate 
Seiddab Attack combata os mvasores da cidade 
High Moon due*) no vebo oeste 
kwaslon Force destrua a nave mAe 
Sir Lancelot pegue os objetos no castelo 
Molar Maul defenda seus dentes das cAnes 
Gaiaxlans destrua as abelhas assassmas 
Monster In Hall cuidedo com o inferno 
Space Raiders bpo invasores do espago 

UTIUTARIOS/APUCWIVOS • SPECTRUM 
TK90X 

-as 80,00- 

VU 3D utiktArio grAfico letes em 3D 
VU Calc - planilha de cAlcikos 
VU File arquno de dados para uso geral 
Ultraviolet super dtsassembter 
MCODER II compilador BASIC 

- CzS 100,00 - 

SoftCALC planilha de caloioscora GBtFICOS 
RASCAL 1.6 compilador 
SpecFORTM compilador 
ASSEMBLER sioer editor assembler 
Tetword II processador de texto com 64 colunas 
The KEY - super copiador de programas 
Paint Plus editor de fete graf-cas 
Screen Machine utiliteo grAfca 



JOGOS • HOT BIT/EXPERT (MSX) 

- Cz$ 80,00- 

Fhght Simulator simulador de vdo num Boeing 737 
Mar Star guerra cdsmea em POLAR IV. 3D 
DONRAN cbvertido jogo de agAo 
Jumping Rabbit ajude o coebo a subir o ettflcio 
Project A - |ogo com rcrives lutas de King Fu 
Haunted House escale o ptedio assombrado 
Trick Boy fantAsbco jogo de teperama 
Cosmo Traveler defends se dos mimigos espeoais 
3D BOMBERMAN - eiimme o monstro 
Dizy Ball destrua as pedras rolantes 
Thezeus - sane a pnneesa prasa no tabnnto 
Pitfall II - aventuras nas edemas perdidas 
Hiper Sports 1-3 - sensaciorais compebgdes 
Hiper Sports 2 - mas 3 compebgbes 
HERO sah* os m-neros prases na mma 
Moon Patrol patrulhe a superfioe da Lua 
Le Mans fantisbea cornda de carros 
Baen Raider defenda-se do ateque akemgenB 
River Raid peroorra um no sem ser destruido 
Super Cobra defenda seu hekedptero do mnvgo 
Keystone Kapers prenda o ladrAo 
Frogger - ajude o sapo a salw a sapmha 
Pyramid desvende os mistenos da ptrimide 
Dog Fighter - derrube os antes mimigos 
Shakm of the Bear emoewante aventura grAfica 
Binary Land ajude os namorados a se encontrarem 
Norsemen defends seu remo contra os tagtes 
Munch Back salve a pnreesa apnsionada ra tone 
Hot Shoe desligue o reator nuclear 
Decation vanas mcnveis provas olimpicas 
Antartk Adventure explore a Anttrtica 
Spook * Ladders escape dos terrives monstros 



Desejo receber os programas em ( ) fita ( ) diskette, 

para ( ) CP-500( ) APPLE II ( ) TK 90X BIT/EXPERT, pelos quais estou enviando um cheque nominal a JVA Microcomputadores Ltda., R. Mayrink 

Veiga, 32 Sobreloja • Rio de Janeiro • RJ - CEP 20090 

NOME: END.: 

CIDADE: UF: CEP: TEL: .( ) DATA DE NASCIMENTO: I / 



Softline - R. Mayrink Veiga, 32, Sobreloja - Centro - Rio de Janeiro - RJ - CEP 20090 • Tel.: (021) 262-6968 



Pascal e Apple formam, certamente, uma dupla de sucesso. 
Conhe^a agora as caracteristicas de dois famosos compiladores 
Pascal e aproveite o potencial desta linguagem no seu micro. 



Versoes do Pascal 

Maurfcio Costa Reis 



Q uando MS, em sua edi( 2 o de 
abril/83, publicou uma slrie 
de artigos sobre linguagens de 
programafSo, estava dando 
um passo importante no sentido de 
abordar outras linguagens al£m do 
BASIC, que dispensa qualquer apresen- 
ta(3o. 

Aqui mostraremos duas implementa- 
fOes da linguagem Pascal para micros 
da linha Apple: UCSD-Pascal e TURBO- 
Pascal. 

Na verdade, o UCSD-Pascal (recebe 
este nome por ter sido desenvolvido na 
Universidade da Califdmia - San Diego) 
6 um sistema completo - ou seja, inclui 
o sistema operacional, utilitarios, geren- 
cia de arquivos etc. - que usa o hardwa- 
re padrSo do Apple com no minimo 
64 Kb de membria, o que pode implicar 
no uso de uma placa adicional de memo- 
ria para os micros vendidos com 48 Kb. 

0 compilador 6 apenas um dos com- 
ponentes do sistema, mais conhecido 
por p- system. 0 sistema e executado 
a partir do DOS, que por sua vez e 
desativado. Neste ponto, aparece a men- 
sagem, como mostra a figura 1 , e o 
UCSD-Pascal esti pronto para uso. 

Tudo, ou quase tudo, no UCSD-Pas- 
cal 6 comandado por uma especie de 
menu, bastando pressionar a primcira 
letra do comando desejado entre aqueles 
que estSo exibidos no menu corrente. 0 
primeiro menu, conhecido por principal, 
da acesso aos seguintes comandos: Edi- 
tor (edi 9 &o de programas ou arquivos 
de dados): Comp (compila^ao): Link 
(utilizado quando desejamos juntar pro- 
gramas compilados separadamente em 
um unico modulo); eXecute (tnicia a exe- 
019110 do programacompilado); Run(ati- 
va os comandos Comp, Link e Run, na or- 



Welcome APPLEl s TO 
U.C.S.D. Pascal System II. $ 

Current Date Is 15-DEC-79 
Command : E( dxt ,R ( un # F{ i le,C( omp, L( ink , 
Xlexute, A( ssemble r D( ebuq?fl . 5 J 



Figura I 




dem). Assemble (montagem de progra- 
mas ou sub-rotinas escritos em lingua- 
gem de mdquina); Debug (depuraffo de 
programas em linguagem de mdquina); 
Filler (copiar e apagar arquivos etc.), ? 
(permite a utilizado de comandos 
opcionais pouco utilizados). Estes co- 
mandos quando selecionados provocam 
a substitute do menu, ou seja, per- 
mitem a sele^So de op^des de coman- 
do. 0 comando Editor, por exemplo, 
tern as op;Oes Adjust , Copy , Delete, Find, 
Insert, Jump, Replace, Quit, eXchange, 
Zap e Set. 

Os arquivos do sistema s3o nomea- 
dos com nota^So pr 6 pria (um pouco 
semelhante a do CP/M), ou seja, VOL. NO- 
ME TIPO, onde: VOL e identifica 9 §o do 
volume (unidade) em que se encontra 
o arquivo; NOME e o nome do arquivo 
propriamente dito; TIPO identifica o 
tipo do arquivo, que pode ser TEXT 



(programa- fonte), CODE (programa 
compilado) e DATA (arquivo de dados). 

0 UCSD-Pascal utiliza um conceito 
muito pratico, o arquivo de trabalho ou 
workfile. A menos que um arquivo seja 
mencionado explicitamente, a a<}io dos 
comandos 6 exercida sobre este arquivo 
(o workfile) que pode ser de dois tioos: 
programa-fonte (SYSTEM. WRK. TEXT) 
e program a -obje to (SYSTEM. WRK. 
CODE). 

O arquivo compilado (tipo CODE), 
na verdade, nSo e executado diretamen- 
te pelo micro, e sim interpretado. A 
figura 2 mostra o esquema de utiliza 93 o 
do UCSD-Pascal. 

Normalmente, os compiladores im- 
plementam alguma coisa a mais em rela- 
93 o ao Pascal padr3o. A linguagem Pas- 
cal implementaida no UCSD-Pascal, aldm 
de todo poder da versSo original, 
possui extensOes no sentido de aprovei- 
tar toda a capacidade do micro. Uma de- 
las 6 o controle do cursor (em qualquer 
ponto do programa 6 possivel posicionar 
o cursor na tela ou saber em que posi 9 Jo 
ele se encontra). 

Outra importante extensio e a con- 
fec 93 o de grificos e desenhos. No 
UCSD-Pascal a capacidade grafica e ati- 
vada pela declara 9 lo USES turtlegra- 
phics; o que torna disponivel rotinas 
grificas que utilizam o conceito de tar- 
taruga (turtle). Deste modo, para tra- 
9 ar uma reta na tela do terminal basta 
fazer a tartaruga andar em linha reta 
com MOVE ou MOVETO. As rotinas 
s3o: IN1TTURTLE (prepara as rotinas 
e coloca a tartaruga no centro da tela); 
MOVE/MOVETO (move a tartaruga tra- 
9 ando uma reta); TURN/TURNTO 
(modifica a dire 93 o da tartaruga);TEXT- 
MODE/GRAFMODE (modifica o modo 
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de operasao); PENCOLOR (seleciona a 
cor do caminho da tartaruga); VIEW- 
PORT (seleciona uma parte da tela); 
FILLSCREEN (pinta parte da tela), 
WCHAR/WSTR 1 NG (escrever na tela), 
SCREENBIT (indica se o pixel estd 
aceso ou apagado); DRAWBLOCK (de- 
senha um bloco prd -definido) etc. 

A decIara^So USES applestuff permi- 
te o uso de rotinas que dao acesso aos 
recursos ja existentes no Apple, como 
controle de joystick (PADDLE e BOT- 
TON), E/S analbgica (TTLOUT) e som 
(NOTE). 

A manipulafSo de cadeia de caracte- 
res (string) e feita com as rotinas existen- 
tes (DELETE, POS, INSERT, LENGHT, 
COPY etc.), permitindo que sejam feitos 
facilmente, por exemplo, programas para 
processamento de textos. 

Para os mais aficcionados, o UCSD- 
Pascal permite, alem dos arquivos seqiien- 
ciais do Pascal padrao, arquivos de acesso 
randomico, o que certamente e um 
bom recurso. Ha tambem a possibilida- 
de de controle de segmentaifiio pelo 
prdprio programador atraves da decla- 
ra95o de segment module. 

Op95es de compila^fo slo permiti- 
das ao longo do programa: (*$£,+ *) lis- 
ta o programa; (* $R+$) verifica9ao de 
intervalo; (*$ Iarquivo") inclui um ar- 
quivo no programa; (*$G-*) nao per- 
mite o uso de GOTO etc. 

TURBO -PASCAL 

0 TURBO -Pascal opera sob o CP/M, 
isto 6 , para que funcione no Apple e 
preciso que este possua a placa de CP/ 
M. Existe tambem uma versdo do 
TURBO-Pascal para IBM-PC totalmente 
semelhante na sua estrutura, mas com 
pequenas diferen9as em fun9§o das faci- 
lidades oferecidas por cada micro. 

0 TURBO-Pascal e ativado pelo co- 
mando A TURBO, onde A)>indica o 
driver corrente, exibindo o menu da 
figura 3 , que permite a inclusdo ou 
nSo de mensagens de erro na memoria 
do micro. Se a op9§o for a nao inclusao, 
o TURBO-Pascal acabara utilizando 
menos mem6ria que serd usada como 
drea de trabalho, permitindo que sejam 
feitos programas maiores. Em seguida, 
aparecerd o menu principal como visto 
na figura 4 , que dd acesso entao as 
op95es de opera9do do TURBO-Pascal, 
selecionadas a partir da primeira letra de 
cada op9So: Edit (edi9do do programa); 
Compile (compila9§o) ; Run (execu9ao de 
um programa compilado); Save (salva 
arquivos de trabalho - workfile - em 
disco); eXecute (executar qualquer pro- 
grama do CP/M; ao final da execu9§o 
do programa, o controle e transferido 
novamente ao TURBO-Pascal); Dir 
(listagem dos arquivos existentes no dis- 
co); Quit (terminar o TURBO-Pascal); 
compiler Options (altera parametros da 
compila9do); Workfile (seleciona um ar- 




Figura 5 



quivo do disco como arquivo de traba- 
lho); Mainfile (define um arquivo para 
trabalho interno). 

0 editor do TURBO-Pascal e muito 
poderoso e sua utiliza9do e proposital- 
mente semelhante ao Wordstar, facili- 
tando assim o seu uso. As op9Ses de 
compila9ao (compiler options) permi- 
tem direcionar o resultado da compila- 
9§o, podendo ser de tres modos: na pro- 
pria memoria (deste modo o programa 
pode ser executado pela op9ao Run do 
menu principal), em disco (o programa 
compilado 6 salvo no disco como um 
arquivo do tipo .COM e pode, entao, 
ser executado diretamente do CP/M) 
ou num formato especial, tambem em 
disco, que pode ser executado a partir 
de outro programa compilado pelo 
TURBO-Pascal. 

A linguagem implementada pelo 
TURBO-Pascal tambdm possui modifi- 
ca98es em rela9do ao Pascal padrao, do 
mesmo modo como ocorre no UCSD- 
Pascal. 0 que mais chama a aten9lo e 
a ausencia de recursos para graficos e 
som apenas na versSo para o Apple, na 
versdo para o IBM /PC isso ndo aconte- 
ce. Por outro lado, o TURBO-Pascal 
apresenta melhorias que sao agradaveis 
surpresas para os velhos amigos desta 
linguagem. Os tipos padrao sdo acresci- 
dos de BYTE e STRING, £ possi'vel 
definir caracteres de controle ( A G d o 
control -G ou bell). Aparecem novos 
operadores com SHL e SHR (shift) e 
XOR (ou exclusivo). E possi'vel fazer 
mudan9a de tipo d semelhan9a da fun- 
930 ORD, que transforma um tipo qual- 
quer em inteiro. Outro recurso que vem 
sendo acrescido as novas linguagens e o 
tratamento de cadeia de caracteres e nisso 
o TURBO-Pascal ndo fica devendo na- 



da a ninguem: operador de concatena9ao 
(+), fun9des especiais (delete, insert, str, 
val, copy, concat, lenght, pos). Os arrays 
MEM e PORT sao pre-definidos e per- 
mitem o acesso a memoria e as portas de 
E/S; MEM [ 6000 ] , por exemplo, se 
refere ao byte mimero 6000 da memo- 
ria, que pode entao ser lido ou alterado; 
PORT[ 2 Jfaz acesso a porta 2 da UCP, 
que pode ser de cntrada ou saida, 
dependendo da utiliza9ao do array. 

Enquanto no Pascal padrdo apenas 
podemos definir constantes de tipo pre- 
definido, no TURBO-Pascal podemos 
criar constantes de mesmo tipo definido 
pelo programa, inclusive arrays. Observe 
o exemplo da figura 5 . 

Os arquivos tern um tratamento espe- 
cial no TURBO-Pascal. Os arquivos 
seqiienciais do Pascal padrdo s 3 o esten- 
didos atravds de recursos que manipu- 
lam o ponteiro do arquivo (file pointer), 
criando facilmente arquivos de acesso 
randomico. As rotinas SEEK, FLUSH, 
ERASE, RENAME, FILEPOS, FILESI- 
ZE, BLOCKREAD, BLOCKWRITE s 3 o 
algumas das rotinas para uso com arqui- 
vos. Para tratamento de tela, tem-se dis- 
poniveis as rotinas CLREOL, CLRSCR, 
CRTINIT, CRTEXIT, DELLINE, INS- 
LINE, GOTOXY, LOWVIDEO, NORM- 
VIDEO, KEYPRESSED etc. Tambdm d 
possi'vel inserir op98es de compi^So ao 
longo do programa como no UCSD- 
Pascal. 

A inclusao de trechos de programa 
em linguagem de maquina no meio do 
programa Pascal e o acesso direto de 
rotinas do sistema operacional (Bdos, 
Bdos HL, Bios, Bios HL e outras que 
acessam controladores de perifericos) fa- 
zem do TURBO-Pascal uma excelente 
ferramenta para desenvolvimento de 
software. 

Tanto o UCSD- Pascal quanto o 
TURBO-Pascal colocam ao alcance dos 
usuarios do Apple toda a potencialidade 
da linguagem Pascal. Ambas pratica- 
mente se equiparam em rela95o aos 
acrescimos ao Pascal pad r So que apre- 
sentam, aumentando ainda mais os re- 
cursos da programa9So. A escolha por 
um deles devera ser feita baseada na 
configura9<Io existente. Lembre-se que 
o UCSD-Pascal exige o mi'nimo de 64 
Kb de memoria, enquanto o TURBO- 
Pascal, uma placa de CP/M. Para quern 
puder, sugerimos o uso de ambos, afi- 
nal, juntar o Pascal ao Apple (ou vice- 
versa) so pode dar em sucesso! 

■ 

m 



Graduado em In former ica pela UFRJ, Maun'- 
cio Costa Reis esti cursando Mast redo em En- 
genharia de Software pela COPPE /UFRJ, t 
analista de sistemas do Ministtrio da Marinha, 
onde trabalha no desenvolvimento da siste- 
mas especiais baseados em microcomput ado- 
res, e tambem co-autor do Hvro “ Compute - 
dores para Usuarios". 
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Aprenda a manipular a memoria de tela do TK90X e aproveite ao 
maximo todos os recursos deste pequeno. porem versatil, micro. 



A tela do TK90X 

Alvaro Ferreira de Freitas Borja 
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USA DE ATTtieUTOt 





Flgun I 



O s usulrios 
de micro- 
coin putado- 
res que re- 
solveram migrar para 
o TK90X (ZX Spec- 
trum), constataram 
que a estrutura da te- 
la desse equipamento 
nio ( linear, isto e. 
nJo 4 sequencial 
Tanto e verdade 
e, para pokear diretamente cm uma 
terminada posi^lo da tela, nSo basta 
adicionar o numero de posifdes que se 
deseja deslocar ao valor inicial da irea 
de video, como nos outros micros, pois 
ap6s as 32 primeiras pos^Oes a coisa 
come^a a complicar. 0 importante i nSo 
entrar em desespero e procurar entender 
o que se passa. 

O problema se deve ao fato de a 4rea 
de video ser de 6 Kb (6144 bytes) e a 
Area de atributos ser de apenas 768 by- 
tes. Para contomar este problema. Sir 



Clive Sinclair usou de uma estrutura um 
tanto complexa para mapear o video. 

Primeiro, rode o programa a seguir 
para entender melhor o problema. 

10 rod 1*16164 TO 22527 
20 POKE 1.2SS 
10 NEXT 1 

Apos isto, um navegante desavisado 
estari pensando como fazer para pokear 
uma determinada posiflo da tela. Pri- 
meiramente, devemos saber como e divi- 
dida a tela. 



A 4rea de video foi separada em tr<s 
setores (podemos chamar assim) de 
2048 bytes, conforme a flgura 1. 

Cada setor 4 dividido em oito linhas 
(Hgura 2), dando um total de 24 linhas, 
sendo que as duas ultimas sSo as linhas 
de edit&o, mensagens de eno etc. 

As linhas, por sua vez, s2o divididu 
em oito subUnhas; sendo que o "passo” 
4 de 2S6 bytes. Para uma melhor com- 
preenslo, na figura 3 e mostrada a divi- 
sio da linha 0 (zero), as outras sfo de 
modo anilogo 

Pois bem, com o que foi visto at< 
aqui ji i possivel determinar uma 
posufSo na tela, bastando apenas utilizar 
a seguintc equafSo: 

16384 + 2048 • NST + 32 * NLS + 
256 • NSL + C * POSICAO NA TELA 

Onde: 

NST - Numero do setor (0 a 2) 

NLS - Numero da linha no setor (0 a 7) 





Em MS n 9 62, n* Sac So Dicat, pig. 54. 
as. dicat Ampin caractaras a Mamina 
disponhrtl apresentaram arroa. Em Ampiia 
ca t a c t em s o problema asti na primeira li- 



nha; logo apflt o comando DATA, o numero 
i 160. a nio 165 

Ji na dice Mamina disponlvei, o erro 
esti na linha 30, qua fka assim; 

30 DATA 205,26,31,42,178,92,237 

66,68,77,201 

Em MS n9 61. no programa Simulador 
da provas. pig. 40. a listagtm saiu com algu- 
mas imparted flat Na pane "Preparacao" as 
saguintas linhas aprasantaram falhas: 



>•« 

set* *w* • at point at y.a 

■ I -l|«T , 

3ff« -k* POINT o- i.e. hi/danc* 

Ji #u|»tao' roe ............. 

Ji na parts "ExecueSo", radiglta at II- 
nhas abaixo 

l m S .r c •v4l :• 



*• * *•> a »o 









N* DA LIMHA 
MO SETOR 



EJTOERECO INICI AL 
DA LIMHA 




g 18560 




Figura 2 

NSL - Numero da sub-linha (0 a 7) 

C - Numero da coluna (0 a 3 1 ) 

Para finalizar, apresentamos urn pro- 

C que permite dar um pokeamento 
na tela do TK90X. Lembre-se da 
primeira tentativa . 



5 LET a-0 

10 LET HL1-16384: COSUB 50 
20 LET HL1-18432: GOSUB 50 
30 LET ML1-20480: COSUB 50 
40 STOP 
50 LET HL-HL1 
60 TOR b-0 TO 7 




Figura 3 

70 FOR d-0 TO 31 
80 POKE HL*d .255 
90 NEXT d 
100 LET HL»HL»256 
110 NEXT b 
120 LET HL1-HLW32 

130 LET a-a*l: IF a>7 THEN LET a-0: 
RETURN 
140 GOTO 50 

Espero que estas explicafOes tenham 
ajudado a tirar algumas de suas duvidas 
sobre o mecanismo de mapeamento da 
tela do TK90X. 



Alvaro Farraira da Freitas Bor/a etti curmndo 
o quarto ano da Enganharia Civil, na UFFA. 
Atualmanta, ala trabalha como Datanhitta 
Projet ista da Talapart, sando tambdrn utudrio 
dot micros TK83 a TK90X. 
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Microdi^itul: lan^amentos e servi<,*os 

A Microdigital racantamanta Oi uiuirioi do TK 300011a 
racabau propottai do govarno mi podario adquirir o SuparCalc 3A 
ttcano para implantat o micro a praeoi eipecian Outra novida 
TKMX como imtrumanto da an da. pravtsta para mato. * o TK90X 
too na rada da atcotai pub I KM com liMti pen. qua M'l vandrdo 
daquat* part por Ctl 4 mil a 292 A nova var 

Mo vam com pr ogr amat a tnttrw 
Aqu> no Braati a amp rata Ian (in para o uao da canata 6t<a 
cow am Mtrtl o TK 300011# cam L*ao-ga Koran — Prandanta da 



dadat carta a dadot tim vttoci quatro darttidadaa gritKM dtfa- 
dadat da impretaio da 160 cpt rantat latcato a M6mca qua ab 

IMAnica a MAmca Plui) ou 320 tarn dun dantrdadat), parmltam a 

cpi (Emilia PC) • tamhim podam ImpraiMo da tabalai a grificoi 

utilizer formulirioi contlnuoi da da alta qualldada prnduzldot 

1 a 6 vim ou lolhM loliMdadlta pilot aplicativoi mail avangadot 
ranttt tamanhot. g raeM ao pro dnponlmn como o Simpbony 
catao da tracionamanto do papal dBatt III a outrot. tornando 
por triccSo mm impiaaaorM adaquadM para 

TodM at’ at ctractamteM alto apKagAm <mM m protnaro 
dM i poaa4>rl«Jada da utilizer at* nan ou c o marc ran 



man tot am dnrartM caprtan braa* amprata - acradrta qua aU Mi 
MtrM a tan da att tartar o contMo util nptcialmina <ta iraa aduc* 
antra a amprata a oa ravandadorat ctonal. pon 4 o pranmro nwero da 
locan 0 novo m«ro davort attar Ampnca Latina qua |4 vam com 
no lOfM amda atta m*i ao praeo a It^it pan acopiade" 
da CzS 12 mil a 500. mcorporan A amprata notifica qua tau 

do o toftwara TotalWorki uma potto da atandtmanto da Mo Pau 
planilha alttrdmca, tliadt t banco lo tarn novo andaraeo Hut Tagt 
da dadot a procaiiador da texto, puru, 209 - Pardiiai Slo Paulo, 
am portuguii Capital, tal.: (Oil) 67- 1B31. 

Sinclair acessa Videotexto 



Sovidades Curso sobit 

Cobra A pplew ork s 

A Cobra ComputadorM vat O V *c roc or to attl promonn 

contmuar tparltKoanilo cada v# z do cuno tobra o Hoyatnorkl 

man o Cobra 210 Com o iicanta uma tradugfo taita pala Royal 
laneamanto da intar faca multiple Softwara, da Slo Paulo, do pro- 
xadoia Micromux, ai poiilblllda- grama americano Appleworkt, qua 
del da uto do 210 (oram amplla- Integra planilha da cilculo eletrA 
dM Agora, a Cobra olaraca o tig mca, banco da dadot a aditor da 
tama aparacronal MMP Monitor laxtot 



A Rant> Etatrbrwca atti Ian 
cando o RSVDT 01. um kn qua 
parrmta o acatto doe rrtrerocom 
pwtadorai da imbe Smctam ao an- 
tama Vxtaotaxto 

Homologado pala T a leap a 
Mtcrodrgrtal. o RSVDT 01 4 um 
car rue bo qua contdm um progra 
ma am EPROM Idnpantando o 
gravid or ctttatal . qua 4 conic 
tado i Midi do micro qua, por 
Mia vaz, 4 ligado 4 llnha telefAnlca 
por um mod am Aiilm, o publico 
poderi obttr rapidamante dadoi 
aconA mcot como cotaeAat da 
bolM da valoraa. bolt# da caraa<i, 
cotaeio do dblar ratarva da 
paaipti aaar nature da i or nan. 




O cartucho RSVDT 01 a o mo 
dam 1200/75 



comp r a da Itvroa ate 

A Hanti EiatrBnKa flea na Hue 
Padra Hapoto 963 Mooca S*o 
Paulo SP. tel (011193 9628 



MuM^Hogramado deaenvoiv«»o 
pal# Icon# Informitica a comptil 
vat com o SPM. tntama original 
do Cobra 210. 

Para oa computadorM Cobra 
500 a Ucric Cobra 400 a leo- 
ne lancou o MUMPS 3270 a o 
Spoil M o prmarro pOMitllrU 
o uto da tarm man a rmpr t ttorM 
iigadot a um mmKomputador Co- 
bra. como ta foatam larmman a 
imprattorat da um computador 
cantral IBM J4 o Spoil M parmita 
o uto da uma unlca Imprattora 
am mait da uma apllcaglo, tarn 
qua haia a nacamdadt da atparar 
o tprmmo da impratMo 0 tntama 
grave o material a m> impratto 
am dneo. axacutando o deport 



O curto contari com auiM 
tabrKM a pratKM com a tempt at 
pr great da ne c aMxlMJM jantrcM 
OjTTUTunretlVM O Mrcrooirto let 
na Av Pau i nr a 007. q 310. 
ta- 10111 284 2900 CCP 01311. 
S4o Paulo 



JVA mudou 

A JV A. lo|a qua corner 
Clallza program at dat marcM 
Softllna a Cibarna, mudou 
da anderago Agora ala ta an- 
contra na Rua May nnk Vei 
ga. n° 32 tobreloia Can 
tro. RJ 
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Campus contrata 
Delia Lima 

A Editors Campus conta agora com 
mars urn forte nomi em mu quadro da 
auto res nationals. O jA conhocido autor 
da linha Sinclair, DAlio Santos Lima, 
foi contratado pela Campus, qua reedi- 
tarA seus principais livros a lanparA ou- 
tros para a linha Apple a TK90X. 

Em conjunto com a Edisa, a sditora 
estA preparando o livro "Linguagem 
C", da Kernighan a Ritchie, um dos li- 
vros sabre esta linguagem mais vendi- 
dos no mundo. Para os usuArios da 
Apple. jA estao nas lojas os "Guias do 
UsuArio Brasilairo" Visicalc a Vititrend/ 
Visiplot. esta ultimo da autoria da Raul 
lido Chrisrmann. colabor ador da MS 



Acessorios 

diversos 

A Clone Produtos Especiais oferece dois 
modelos da circuladores da ar para micros da 
linha Apple. Com potAncia da 300 watts por 
tomada (total da duas); consumo da cinco 
watts (motor Rotron); alimentapao da 100 e 
220 volts; 50 a 40 ciclos A /C, o Ciclone I pre- 
sents a temparatura baixa a constante. evitan- 
do a retenpfo da calor nas placas a interfaces, 
prejudicial A performance do equipamento. 
O Ciclone Commander dispde ainda da fil 
tro da linha, qua elimina and os a protege o 
sistema ao nio parmitir a passage m de picos 
da tensao Entre outros equipamentos fabric «- 
dos pela amprasa. ancontram se o Filtron 
filtro da linha para sistemas IBM. Apple. 




O Ciclone II. da Clone 



TRS; a o Picotex, perfurador de disquates 
flexfveis de 5 1/4" qua. atravAs de lamina 
especial de apo. picota uma lateral dos disqua- 
tes da face simples, permitindo o uso da outra 
face, o qua duplica seu rendimento O endare 
to da Clone A Rua Arnaldo Maguicaro SP, 
CEP 04691, tel (0111 524 5850. 



Op^ao de 
1-7000 PCxt 

Uma nova oppao para os utuA- 
rios com grande necessidade de 
membria de massa A o 1-7000 
PCxt, agora com Winchester da 40 
Mb, alAm da unidada da disco da 
5 1 14 " a placa de expansfio da 
640 Kb. Com maior capacidade 
da armazenamento e tempo mA- 
dio da acesso A trilha raduzido da 
B5 ms para 30 ms. essa configure- 
Cio raprasenta uma significativa 
aconomia. 

A Itautec apresenta tambAm 
um sistema composto por certu- 
cho, interface e caixa stand by, 
|A homologado pela Embratel, 
qua liga o 1-7000 A rade da telex. 
0 sistema parmite acompanhar 
o taxto atravAs do monitor da vf- 
dao, gravando as mansagens am 
disqueta e realizando Instanta- 
naamanta as correpbet nacassArias 
por meio do editor de textos ou 
do editor telex. Para recaber at 
mensagens o micro nao precise 
astar ligado. a rvem intarromper 
tau trabalho, pois alas pod am Mr 
armazenadas no buffer da mamA- 
ria nio volAtil qua estA inMndo 
na place da interface telex a tern 
capacidade para guardar 120 li- 
nhat. 



Moddata diversified 



Crescimento e diversifica- 
pio de atividades sio atatualt 
dlretrizes da Moddata. Tal 
diversificapao implicou na di- 
visio da empresa am cinco 
outras a, desta forma, turgi- 
ram a Moddata TeleinformA- 
tica. responsAvel palot mo- 
dems; a Moddata Compute 
dores e Telecomunicapbes. 
fabricante de computadores 
de grande porta; e Moddata 
MAquinas e Componentet, 
produtora de VI sores da crie 
tal Ifquido; a Moddata Servi- 
pot, prastadora da Mrvipos 
da manutenpao dot compu- 
tadores de grande porta; e a 
Moddata Incorporated, rat- 
pontAvel palot negbeios de 
exportapio/importapio do 
grupo no exterior. 

Um fator responsAvel pela 
diversificapio foram os ac or 
dos internacionais form ados 
pela Moddata. Com a NEC. a 
empresa adquiriu tacnologia 
para a produpao de equips 
memos de comunicapio lo 
teleopen, por exemplo); com 
a Control Data, tacnologia 



para a fabricapao de compu- 
tadores de grande porta e 
com a Epson, o know-how 
para a produpao dos visores 
da cristal li'quido. 

AtravAs do acordo com a 
Control Data, a Moddata in- 
gressarA no restrito cfrculo 
dot fabricantes de mainfra- 
mes. Nele a Control Data m 
compromete a transient para 
a Moddata, no prazo mAxi 
mo da cinco anos. toda a 
tecnologia do computador 
modelo 830 da linha Cyber 
180, inclusive o eddigo forita 
do sistema operacional. 

O contrato com a Epson 
tignifica a antrada da Modda- 
ta numa Area inexplorada no 
Brasil: a produpao de visores 
da cristal Ifquido. A nival 
inicial. a Moddata apenas 
encapsularA e testarA os viso- 
res. que serao vend id os para 
os fabricantes nacionais de 
calculadores. Posteriormen- 
ta, A potsivel qua a empresa 
pasM a fabricar visores para 
micros portAteis. 



Impressao 
em IBM 

Potsibilitar o uso da nova mA- 
quina da escrever eletrbnica da 
IBM como uma imprassora quali- 
dade carta A o que oferece o Edi- 
tex 2000-P. uma interface lanpa- 
da am marpo pala Compu tax 
Industrie a ComArcio. 

O Editex 2000-P pode Mr 
oonactado a qualquar micro qua 
tanha uma saida paralela padrao 
Centronics. Ele parmite velocide- 
da da impressao de 16 cpt; postui 
buffer de 2,8 ou 16 Kb a coman- 
dot para astabelecar o tamanho 
do formulArio, linha do impressao, 
peuH automAtica etc. 

Maioras inform apdes podem 
tar obtidat na Computex, A Rua 
Paraibuna, 1692, Sio JotA dot 
Campot. Sio Paulo, tal.: (0123) 
22-1006. CEP 12230. 



Nasajon paulista 

A firma carioca Nasajon Sistemas, qua astinou contrato de repraMn- 
tapio comercial da mus produtos com a Prb- Eletronica de Sio Paulo, 
vai abrir uma filial paulista. AlAm dos ji conhecidos softwares para at 
linhas TRS-80, Apple a CP/M, como crediirio; controle da obras; con- 
trols de agAncia da turitmo; adminittrapio de imbveis; controle da 
movimantapao de caixa a adminittrapio da dinica mAdica. a Nasaion 
tambAm possui agora versbes para compativeis com o IBM-PC 



Epcom land'd perifericos 

A Epcom. fabricante do micro HotBit. estA investindo na 
Area de perifAncos. como atestam mus racemes lanpamentos, o 
gravador HB-2400 a o cartucho para comunicapao HB 3000 A 
empresa tambAm estA trabalhando para colocar no mere ado at 
unidades de disco de 5 1 14 " e 3 1 12 ", que deverao ser lanpadas 
respectivamente no segundo semestro de 86 a infeio de 1987, o 
qua permitirA ao usuArio rodar os doit sistemas operacionais 
mais difundidos atualmente o CP/M a o MS-DOS. colocando 
assim A disposipao a malt vasta bibliotaca de software existente. 



Lanpamentos 

Multisystems 

A Multisystems, software- hou- 
se do Rio de Janeiro, lanpou re- 
cantemente dois novos produtos: 
o Multi-BASIC, compilador BA- 
SIC multiusuArio e o R -Office, 
sistema mtegrado para a auto- 
mapio da escritbrios. 

O Multi-BASIC A um compila- 
dor escrito na linguagem C a 
possui sintaxa a gramAtica simile- 
res A adotada pelo BASIC da Mi- 
crosoft. desenvofvido para o IBM- 
PC/MS DOS. Elapode Mr utilizado 
am mAquinas com microprocessa- 
doras da linha MC 68000 ou no 
IBM-PCAT, seja sob o sistema ope- 
racional UNIX ou compatfveit. 

JA o R -Office A um sistema 
modular, deMnvolvido em C a At- 
Mmbler. E composto por um pro- 
cessedor da textos, gerenciador 
da mesa, banco de dados relacio- 
nal. plamlha eletronica simples 
a gerador da relatbrios. A Multi- 
systems fica A Rua Romio da 
Aguilera Campos. 69 - Nova Fri- 
burgo - RJ. tel.: (0245) 22 4208 
a 22- 7277. CEP 28600 

Pacotes 

para 

TRS-80 

A PRH Consultores estA ofere- 
cendo toda uma linha da pacotes 
e program as aplicativos para os 
micros compativeis com o TRS- 
80 modelo III. 

Dantre ales, podemos citar o 
Procads - pacote para criapio a 
mampulapao de cadastros ou ar- 
quivos da dados; o Aplicativo 
MAdico, programa qua parmite 
aos profissionais desta Area cadas- 
trar dientes, receitas, contat a 
receber a histbricos e o Config, 
programa para elaborapao de orpa- 
mentos em engenharia, computa- 
pSo etc. 

A PRH fica na Rua MAxico, 
70 - grupo 810/811, Centro - RJ, 
tal (021) 220-3038 - CEP 

20031 



MICRO SISTEMAS. maio/86 



25 







Novos softwares 
para o 90X 

Dapoit do "Artitta". um toft- 
wan para gtragio da grificot, da- 
wnhot, figuras a caractarat para o 
TK90X, a ampresa paoluta Cibar- 
tron ntA colocando no marc ado 
doit novot program at: Planilha 
SOX a Banco da Dadot; promatan- 
do para junho o langamento do 
TK-Word 90, procauador da tax- 
to com ecantuagio. Maiorat infor- 
magflat na amprata, pal o taiafona 
(011) 204-9988 

Sector lan^a XT 

Em agotto do ano pauado. a 
amprata Softac — primaira a Ian 
gar um aquipamanto compatlval 
com a linha IBM-PC no Bratil. o 
Ego - entrou am citio jurldica, 
dividindo tau patrimbnio adando 
origam auim a duat novas ampra- 
tat no tator. Uma dalat, a Sactor 
Informitica, partiu para o detan- 
volvimanto da um novo micro: o 
Sactor XT. cuja configuragio bl- 
ue* inclui UCP a tael ado, monitor 
da video COMPO; mambna RAM 
micial da 512 Kb; um driva da 
5 1 14"; uma porta tarial a outra 
partial* padrao Cantronict. paio 
praco da Cz$ 145 mil. 

A amprata apratanta atnda op- 
gba* da radat am barra, adquindat 
am OEM da Catut a da amprata 
pauhtta NOT (PC-NET) O Sactor 
XT trabalha am ambianta multi- 
utulrio, tob tittama oparacional 
Analix - versao da Softac do 
Unix, da norta-amaricana AT&T. 
A amprata pi ana) a ainda langar 
um micro compatlval com o AT 
da IBM, at* novambro datta ano. 



Produtos ATS 

A ATS Taenologia - an- 
tiga Applatrbnica - vai man- 
tar a produgio da taut micro* 
6602. compatlval com o Appla 
II Plut; Thor PCXT a da familla 
da monitorat da vldao Apollo, 
pattando ainda a fabric ar, atta 
ano, monitorat da vldao pollcro- 
miticot da alta retoluplo (640 
x 480 pontot). Para 1987, a am- 
prata prav* o lancamanto da uma 
vartio compatlval com o AT, da 
IBM. 



Qalab promove 
curso 



A Qalab vai ofaracar o 
curio "Controia da intarfa- 
rlncia am aquipamanto* ala- 
trbnicot". not diat 14. 15 a 
16 da maio. no Caatar Park 
Hotal da Sao Paulo. Maiorat 
Informagbes pod am tar obti- 
dat na prbpria Qalab Prota- 
glo Eletromagn*tica. palo ta- 
lefone (021) 220 0467 



Novo micro Medidata 

O M1001 Slim, racantamanta lane ado pal a Madidata. 
vam atandar as faixat da utu*riot da tuparmicro da pa 
quarto a m*dio porta, nio a land da* palo M1001. O 
novo aquipamanto * bataado no microprocattador Zilog 
8000 (16/32 bitt); trabalha com at* cinco terminal*; 
512 Kb da membria: drivat da 5 1 14"; unidades da fita 
para backup da 20 Mb a Winchester* da 25 Mb, poden- 
do tar adquirido por um prago mail acattlval qua o 
M1001. 

A Madidata garanteatotalcompatibilidadedoMIOOl 
Slim com os sittemat da amprata, dando inclusive, a 
poasibilidade da axpanslo do aquipamanto am caso da 
nacatsxlades futures 




1-2-3 deu em Samba 



A ampresa carl oca PC-Softwa- 
re langou em margo a planilha 
Samba. Masmodizando-tao maior 
revandador carioca do Lotus 1 -2- 
3, Carlo* M*rio Gomes da Almei- 
da, pratidante da PC, n<o se ftz 
da rogado a admitiu qua o produ- 
to "4 uma cbpia fial do Lotus, 
t6 qua melhorado ". Sagundo ala, 
o Samba oferece maior facilida- 
da da imprassao da gr*ficot a 
trantfar*ncia da arquivot; acan- 
tuagio natural no taclado, video a 
xnprataora; aiocagao dintmica da 
membria (c*lulas am branco nio 
ocupam **pago) a compatibilida 
da com o co- procauador aritm*- 
tico 80B7, tando qua Mtu duat 
ultima* caractaritticu j* ettio 
■ncorporadas na variao 2.0 do Lo- 
tus. divulgada em 85 pala Inter- 
corp, qua reprasanta o produto 
no Bratil. A nova planilha — qua 
tagundo a ampresa consumiu doit 
anot da datanvolvimanto - apra- 
•anta-ta am tr*s ditquatn. tando 
doit da tittama a um com a bi- 
bliotaca do utilitiriot; a um 
manual, natu raiment* am portu- 
gu*t, cuttando Cz$ 7.450,00. Pa- 
ra incantivar as vandu - a expec- 



J* h* algum tempo quo ot 
grand** hot*it despar taram para a 
nacauidada da inform atizar tua* 
rotma* da funcionamanto. Agora, 
chagou a vez dot hot*is da duu a 
trit attralM, com ot quail a Gra- 
fut Informitica pretend* traba- 
Ihar. 

A Grafut, qua datanvolva toft- 
warat para Apple a IBM-PC. 
tarn no tittama do hotel aria ()* 
inttaiado am 15 hot*it no par (o- 
do da um ano) o carro-chefe do 
mat vandu. O tittama, donomina- 
do HotGraf, * modular, a tau 
principal mddulo inclui fatura- 



tatrva da PC * da qua o Samba 
vanda a mama quantidada qua o 
1-2-3 — a ampresa ofaracar*. 
ao manot not doit prbximot me 
tat, um curto bisico gratuito a 
um ditquata da damonttragio, 
tamb*m gratuito para pattoat 
juridical. 

Poucot diu dapoit datta avan- 
tura, no antanto, a PC Software 
foi cancelada Como revandador a 
dot produtos da Intercorp do Bra- 
til. port tagundo Ricardo Nick, 
Go rente Garai da Divitio da 
Software da amprata, axirta uma 
cl *u tula no contra to cjua proiba 
a ravanda da fabricar ou dittri- 
buir softwares similar**. Nick, 
qua diz nio acaitar a potigio 
"pouco itica" da PC -Software, 
afirma qua a atituda da ampra- 
u — tagundo ala, uma du mano- 
ret ravondadorat da Lotus no Rio, 
undo a maior a Sacco - contrl- 
bui para tirar a tariedada do mar- 
cado da software. E acratcanta, 
"nio potto acaitar a afirmagio 
da qua o Samba at) a malhor qua 
o 1-2-3. poit ala * b at aado na 
vartio 1 A do Lotus, )i ultrapat 
tada". 



manto; o cu pa g ao In tu agio dot 
apartamentos); conubilidada a ra- 
tarvat. cuttando Cz$ 30 mil. Ou- 
trot mbdulot pod am Mr adicio- 
nadot ao tittama: ratarvu; restau- 
rant*; control* da astoquat; mala 
dirata a talax. 

Alim do HotGraf, a Grafut 
pottui um tittama da contabilida- 
da on-line a outro para garagio 
da atiquatat com cbdigot da 
barru, para ter usado am paqua- 
not aitabaiaciman toa comarciait 
A Grafut f'ica na Av. Marachal Ci- 
mara. n 0 160. coni. 1123, a aterv 
da palo ta!.: 1021) 262-1707. 



ZIM no ED-680 

A Mata Informitica Ltd*., sys- 
tem - houM da Sao Paulo, mstaiou 
uma cbpia da tau Banco da Da- 
do* Ralacional. denominado Zim 
no tuparmicro ED -680, inttaiado 
na UFRGS. 

Zim * um tittama garanciador 
da Banco da Dadot attruturado 
no modalo da entidadat ralaciona- 
dat. A utilizagio datta software 
permit* a ligagio do ED -XT 
(compatlval com o IBM) ao ED- 
680. intarligando o tittama opera- 
cional Edix ao MS-DOS O pro 
)ato Maia-Edita-UFRGS ob)*thra 
coiocar * diapotigio dot aiunot 
um garanciador da Banco da Da 
dot com linguagam da quart* ga 
ragfo. 

Quatro em um 

Quatro capacidadat num unico 
produto * o qua oferece o Uniton, 
o novo software para micro* da II- 
nha IBM -PC daMnvolvido pala am- 
prata amaricana Martin Marietta 
* I eng ado no Bruil pala Princeton 
Systems 

El* * dot ado da mbdulo* para 
comunicagio micro- mainframe, 
racurto* para acaaao a banco* da 
dado* do micro a do mainframe, 
linguagam da quarts garagio a um 
garanciador da todot ot compo- 
nent** do tittama. Maiorat infor- 
magflat podam Mr obtkto* na 
Princeton Systems * Av. Paulina, 
1294 - 229 andar - Sio Paulo, 
tel : (011) 289-0077. 

No CPD de MS 

O material raiacionado abaixo 
foi anviado palot fabricantat para 
aniliM no CPD da MS. Volt are- 
mot a coman tar ataat produtot 
na* prbximas adigbat da revtata 

O Convenor tarial /paraialo. 
da Micro Equipamantot (1011) 
533-2326). permit* conactar 
oualquar impratsora paralaia I pa- 
dr io cantronict) * taida tarial, do 
micro, inclutiva aot da linha Color. 

Em software, recebamot langa 
manto*, para MSX, da Gradient*, 
Sharp a Cibartron. Para o TK90X, 
recebamot programs* da Micro- 
soft, Cibarne, Cibartron a Stop 
lnform*tica, Mndo qua atta Cil ti- 
me anviou - not tambbm a fit* vir- 
gam C-20 Soft-Loader, prbpria 
para micro*. 



PC acessa Videotexto 

A R. C. Taenologia am Software, amprata paulitta criada h* mu 
m*Mt. desenvolveu um program* qua permit* aot micros da linha IBM- 
PC a compativeis acetsarem o Siltama Videotexto: o VTX-PC. Oparin 
do am padrio grkfico (320 x 200); a cores ou em preto a branco; * 
valocidada de 1.200/75 bps, o tittama conta com comandoi on-line, 
daz chaves programbvei*. trantmittio autom*tica da senha, a permit* 
invartio da tela. 

O VTX-PC * comercializado atrav*t da ravendedore* Maiorat infor- 
magoas na R. C. Taenologia, palo tal.: (011) 212-9930. 
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BRASILTRADE 

CENTER 



PREQOS ESPECIAIS 
PARA REVENDEDORES 

LIGUE: /a 

@ 259-1299 ^ 



DIVER 



INTERFACES 



CPM Logodala 
Int Disco Logoda 



Printer Card CCE 

Ram Card 16 CCE 

RS 2320 CCE 

Video Card 80 Col CCE 

CP M Card CCE 

Disc Card CCE 

128K CCE 

Paralela Logodala 
1 28 Logodala 



MONITOR 



MV 12 CCE 

Videocompo Verde 
Drive p Apple 



SUPRIMENTOS 



Arquivop 10 Dlsquetes 
FormulOrio de 80 Colunas 

Picotex 

Cabo CP'500/lmpressora 



RS 232 Logodata 



SERVICO EXPRESSO PARA TODO O BRASIL 



GRAFIX FT 80 



80 colunas. 160 CPS. rolo p papel solto. 
tractor pformulario continuo, compativel com 
todos os 

micros 



COMPATIVEL 
COM IBM/XT 

42.500 

16 Bits, 640 K bytes de 
membria RAM, placa de mutti-lungao 
c'RS 232 e paralela 
centronics, placas controladoras 
de drives, placa controladora 
de video grOlica, 
fonle interna de 150W 



PROMOCAO BRASIL 
TRADE CENTER CCE 

CPU Exato Pro + Monitor + 
Drive + 4 Interfaces 
A escolher Cz$ 20.999 
em 4 vezes s/luros 
ou a vista Cz$ 18.899 
( 10% de desconto) 



GRAFIX HS 100 -J 

(160 CPS) 19,970 

Grafix HS 100 132 colunas • 160 CPS 
Tolalmente grafica 
Compativel f™ 

c Apple. / mm - 

IBM PC, etc. 1 S , 



BTC/XT 100% 
COMPATIVEL 
C/IBM 640 K 

Consulte: 16 Bits 256 K 
Bytes de RAM, 2 drives 
Slim, placa controladora 
de drives placa controladora 
de video grStica, 
fonte interna de allmentacAo 



48 K de memoria 
RAM colorido 
Gratis 5 logos a 
sua escolha 



CURSO DE INGL&S 

BTC ounico 1.499 

NO BRASIL 



IPANEMA - AV. EPITACIO PESSOA, 280 - ® 259-1299 
IPANEMA - R. Vise. DE PIRAJA, 580 U. 226 
LARANJEIRAS - R. DAS LARANJEIRAS, 21 U. 2 - « 285-6543 
CENTRO - R. ASSEMBLER 10 S/S 112 - ® 222-1124 
N(TER6l - R. LOPES TROVAO, 134 S/L - » 710-3659 
CAXIAS - R. DR. MANOEL TELES. 113 LE - » 771-6012 
TUUCA - R. CONDE DE BONFIM. 229 LA - S 284-2031 
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Combinar diferentes cores no modo de alta resolugao grafica em 
micros da linha TRS-Color e a proposta do autor deste artigo. 



Modos graficos 
no Color 

Daniel Detanico 



O s microcomputadores compati'veis com a familia TRS- 
Color tem uma grande capacidade grafica. Esta capacidade 
nao e explorada em toda a sua amplitude, ou pelo menos 
nao 6 difundida pelo fabricante nacional em seu manual. 
Originalmente (segundo o manual), o micro possui cinco 
modos graficos: um de baixa resolugao, que pode usar dois diferentes 
conjuntos de duas cores (preto/cinza ou preto/verde); um modo de 
media resolugao, com os mesmos coniuntos de cores; dois de mddia re- 
solugao, quo podem utilizar at^ quatro cores conjuntamente (verde/ 
amarelo/azul/vermelho ou cinza/ciano/roxo/laranja); e, por ultimo, 
um modo de alta resolugao, que utiliza apenas conjuntos de duas cores, 
os mesmos do de baixa resolugao. 

Seja para um jogo, grdfico ou efeito visual, a cor preta tem um char- 
me todo especial, ao mesmo tempo que as outras cores sao indispensa- 
veis. Ocorre entao um problema: como conciliar o preto com algumas 
cores e ainda por cima trabalhar no modo de alta resolugao? Em pro- 
gramas em linguagem de maquina isto consegue ser feito. 

Mas em BASIC existe um meio de se utilizar a tela de alta resolugao 
e cores em conjuntos de quatro (preto/ verde /azul/cinza ou verde escu- 
ro/ verde /verde azulado/verde claro), sendo que os tons do verde e 
azul sao diferentes dos usados nos modos comuns. £ uma fdrmula 
muito simples, mas tambdm cheia de macetes que podem atrapalhar 
bastante a vida do programador (atrapalhou bastante a minha, pelo me- 
nos). A formula 6 a seguinte: 

1 PMODE 4,1: REM E DEFINIDA A ALTA RESOLUC&0 
2 SCREEN 1,1: REM E ESCOLHIDO UM CONJUNTO DE CORES 



PPOINT 



Se voce esta habituado a usar a fungao PPOINT, sabc que ela utiliza 
os mesmos parametros (cddigos de cores) das outras fungoes graficas. 

Mas, neste modo grdfico especial, a coisa toda muda e os valores 
utilizados ora respeitam o codigo de cores (SCREEN N,0), ora nao res- 
peitam o codigo de cores original (SCREEN N,l), o que torna complica- 
do, para quern nao tem este conhecimento, a operagao de varredura de 
pontos em jogos, por exemplo. 



No conjunto de cores 0, o codigo 
de cores fica definido assim : 



. verde escuro 1 

. verde 2 

. verde azulado 3 

, verde claro 4 



E no conjunto 1 fica: 



preto 5 

verde 6 

azul 7 

cinza g 



Somente com os valores descritos acima a fungao PPOINT funciona, 
por isso nao tente usar outros valores. 

Se voce ainda tiver alguma duvida, consulte a figura 1 . 

E, por ultimo, acrescente ao programa original as linhas abaixo: 

80 Y = 4 

90 FOR T=24 TO 190 STEP 48 



3 PMODE 3,1: REM Al ESTA O TURQUESINHO 

Ou seja, primeiro se define o modo de alta resolugao ; segundo, se 
escolhe o conjunto de cores; e finalmente e definida a media resolugao. 
Simples, nao? 

Tente este programa e veja as cores disponiveis no primeiro conjun- 
to: 

10 PMODE 4,1: SCREEN 1,0:PMODE 3,1:PCLS 0:REM SAO DEF1NIDAS A 
ALTA E MEDIA RESOLUgAo E 0 CONJUNTO DE CORES 
20 Y-0 

30 FOR R-0 TO 192 STEP 40 : ABRE O LAgO PARA DESENHAR OS RETANGULOS 
40 Y-Yrl 

50 LINE <0,R)-(256,R*48) ,PSET,BF:REM DESENHA OS REtAnGULOS 
60 NEXT R:REM FECHA LAgO 
70 GOTO 80 

Para ver o outro conjunto, faga a seguinte modificagao: 

10 PMODE 4,1: SCREEN 1 , 1 : PMODE 3,1:PCLS 0 : REM REDEFINE 0 
CONJUNTO DE CORES 

Observe que voce podera utilizar esta tdcnica em seus programas. Po- 
rfm, tome o cuidado de nao alterar o coqjunto de cores no meio dos 
mesmos, pois se isto ocorrer, o programa saira do modo grafico espe- 
cial. 

Para resolver este problema, simplesmente reescreva a seqiiencia de 
entrada para o modo grafico especial. 



100 Y = Y+ 1 

110 IF PPOINT ( 20 , T ) = Y THEN SOUND 100,3 
120 NEXT T : GOTO 120 

Funciona, nao e? Mas tente modificar o cddigo de cores para o 
cddigo original (80 Y = 0). Funciona? Nao. £ uma boa dica para voce 
criar programas mteressantes, principalmente jogos. Bom divertimento 
ou trabalho. 



Codigo de cor 


Cod. de PPOINT 


Conjunto de Cor 


Cor 


i 


1 


N , 0 


Verde Escuro 


2 


2 


N f 0 


Verde 


3 


3 


N, 0 


Verde Azulado 


4 


4 


N , 0 


Verde Claro 


1 


5 


N , 1 


Preto 


2 


6 


N, 1 


Verde 


3 


7 


N, 1 


Azul 


4 


8 


N, 1 


Cinza 



Figura 1 



Daniel Detanico 6 usuirio dos equipamentos CP 400 e CP 500 e progra- 
ma em BASIC. 
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Voce, usuario da linha TRS-80, ja teve vontade de modificar o BASIC 
do seu micro e acrescentar novos comandos? Se ainda nao conseguiu 
realizar este desejo, este programa pode resolver o seu problema. 



Novos comandos 

Sergio Santa Cruz 



do BASIC 



RST 00H 
RST 08H 



RST 10H - 

RST 18H - 

RST 28H - 

RST 3 OH - 
RST 38H - 



Reinicializa o computador (vai para o enderego 0000H) . 
Compara o proximo byte do programa com o byte para o 
qual HL aponta; se forem iguais, executa urn RST 10H; 
se forem diferentes, emite urn SYNTAX ERROR. Vai para o 
enderego 4000H e depois para o enderego 1C96H. 

Aponta HL para o proximo carater diferente de espago e 
carrega-o no acumulador. As flags sao setadas: C se for 
um digito, e Z se for 00H ou Vai para os enderegos 

4006H e 1D78H . 

Compara os conteudos de DE e HL, setando as flags de 
acordo (Z se HL=DE, NZ se HL< >DE ; C se HL<DE, NC se 
HL>=DE). Vai para os enderegos 4006H e 1C90H. 

Chamada quando a tecla BREAK e pressionada. Tambem e 
usada para tarefas especiais pelo DOS. Vai para o endere 
go 400CH . 

Chama e carrega o DEBUG (este RST costuma variar entre 
alguns DOSes). Vai para o enderego 400FH. 

Vetor de interrupgoes mascaraveis. Vai para o enderego 
4012H. 



V oce jd teve, alguma vez, vontade 
de modificar o BASIC do seu 
DOS? Ja cansou-se de ter sempre 
os mcsmos comandos sem nenhu- 
ma variagao? Ja teve dtimas iddias 
para comandos novos, utili'ssimos, mas impos- 
si'veis de se implementar? Ja teve vontade de 
incluir no seu computador alguns comandos de 
outros equipamcntos que sempre Ihe causa- 
ram inveja? Pois, se voce desenvolve progra- 
mas cm Assembler para micros da linha TRS- 
80 modelos I /III e ja teve essas vontades e 
outras semelhantes, este pode ser o programa 
pelo qual voce estava esperandol Eu descreverei, 
aqui, um metodo de implementagao de novos 
comandos ao Disk BASIC, sem prejudicar 
nenhum dos comandos normals ja implemcn- 
tados. 

A INSTRUQAO RST 10H 

A base do metodo aqui descrito e a ins- 
trugao RST 10H do microprocessador Z80. 
Existcm outros mitodos, um dos quais, in- 
clusive, foi descrito por Cldvis e Rubens Al- 
meida Menezes, na cdigao de MS n? 35 (de 
agosto de 1984). F.sta instrugao equivale a um 
CALL de um unico byte, ou seja, o enderego 
da instrugao que segue o RST 10H 6 salvo no 
stack, de modo que o primeiro RET encontra- 
do farf o programa voltar para o enderego 
10H. No enderego 10H encontra-se um JP 
4003H, que e um enderego da RAM;e no en- 
derego 4003H encontra-se a instrugao JP 
1D78H. 

A partir do enderego 1D78H comega uma 
sub-rotina que aponta HL para o proximo ca- 
rfter diferente de espago no buffer para o 
qual HL estd apontando. Assim, pode -sc di- 
zer que RST 10H equivale a um CALL 10H, 
com a vantagem de ocupar apenas um byte. 
Aliis, esta instrugao nao £ a unica do tipo 
RST existente; de uma olhada na figura 1 para 
ver as outras. Caso voce tambem tenha alguma 
duvida sobre as rotinas da ROM, consulte a fi- 
gura 2. 

Ora, perguntara o augusto leitor destas li- 
nhas, e o que isso tern a ver com incluir novos 
comandos em BASIC? Bern, a historia e a 
seguinte: a rotina do interpretador BASIC - 
que executa programas na memoria logo de- 
pois de voce usar o comando RUN - comega 
no enderego 1D5AH, justamente com um 
RST 10H (HL ja aponta para o buffer onde 
esta armazenado o programa BASIC), de 
modo a verificar qual e o proximo card ter e, 
assim, identificar o proximo comando. Por- 
tanto, como foi dito acima, a instrugao RST 
10H forga uma passagem pelo enderego 
4003H da RAM antes de seguir adiante ate a 



Figura 1 

rotina do enderego 1D78H. Desta forma, se 
for escrito um programa que modifique o 
conteudo desse enderego, fazendo-o apontar 
para uma outra rotina qualquer, esta torna-se 
a rotina de interpretagao dos comandos do 
BASIC. Se ao fim desta colocarmos um JP 
1D78H tomando o cuidado de verificar que 
HL continue apontando para o buffer, ela po- 
derd reconhecer novos comandos e depois 
voltar a rotina que reconhece os antigos. 

O PROGRAMA NCOMS/CMD 

O NCOMS/CMD (Novos COMandoS) foi 
escrito em um DGT-100 da Digitus com um 
drive, mas funciona em qualquer modelo 
TRS-80. Ele tern dois objetivos: em primeiro 
lugar, ilustrar a tecnica acima mencionada e 
permitir a sua melhor compreensao; e em 
segundo, acrescentar nove novos comandos 
ao BASIC normal, que ajudarao o programa- 
dor BASIC a desenvolver seus programas. 
Alem disso, o programa ainda substitui a 
mensagem Ready do BASIC por SBASIC OK 
(SuperBASIC OK); isto 6 feito atraves do uso 
do vetor do modo de comando do BASIC 
(enderego 41ACH), por onde o interpretador 
passa exatamente antes de imprimir a mensa- 
gem Ready. 

Para fazer funcionar o programa NCOMS/ 
CMD, primeiro carreguc-o do DOS com o 
comando LOAD NCOMS/CMD. Depois, entre 
normalmente no BASIC de disco e escreva: 
DEFUSR=&HFBC0:S=USR(0) J4EW e aperte 
< RETURN > . O programa respondent SBA- 
SIC OK 



Os novos comandos a sua disposigao sao 
os seguintes: 

. SWAP X J ,Y $ : troca os respectivos con- 
teudos das variiveis XJ e Y$. Um s6 SWAP 
pode trocar virias variiveis, desde que elas 
estejam todas aos pares {SWAP A$,BJ,C$, 

D $ . ..). Se houver um numero l'mpar de va- 
riiveis ou se elas nao forem strings, ocorrerf 
um erro. 

UPC(X$): transforma todos os caracteres 
da string X$ em maiusculas. 

SOUND X,Y : emite um som. A distancia 
entre duas ondas sonoras 6 X, e a duragao do 
som 6 Y, variando os dois de 0 a 2SS. Assim ; 
quanto menor for o X, tanto mais agudo sera 
o som: e quanto maior, tanto mais grave. 

INVERSE X TO Y: invert e o vfdeo (quer 
dizer, acende os pixels apagados e apaga os 
acesos) da posicao de PRINT @ X ate Y, va- 
riando ambos de 0 a 1023. Se X e Y forem 
omitidos (se for escrito apenas INVERSE), 
a tela serf invertida; e se uma virgula for 
colocada ap6s o Y, novas coordenadas po- 
dem ser inclui'dasUNVERSE 0 TO 64 , 960 
TO 1023,.. .). 

. CLS(X): enche a tela com o carfter cujo 
c6digo i X, variando de 0 a 255 ejsosicionan- 
do o cursor na primeira posigao da tela. 
Pode-se tambim usar uma string no lugar de 
X(CLS(A$)), sendo que, nesse caso, o primei- 
ro carfter dessa string sera usado para encher 

LOCATE X,Y: como no IBM -PC, este 
comando posiciona o cursor na linha X(va- 
riando de 0 a 15), coluna Y(variando de 0 a 
64), de modo que o proximo comando # 
PRINT imprima nessa posigao. ® 
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0054H - Flag de modelo I/III. Este enderego contem um byte 01H se 
o computador for um TRS-80 modelo I ou compativel, e outro 
valor se for um TRS-80 modelo III ou compativel. 

01F8H e 20F9H - Poem o computador em seu estado normal antes de 
chamar a rotina que imprime READY. 

0AF4H - Imprime a mensagem de erro TYPE MISMATCH se a variavel que 
estiver no acumulador de software nao for uma string. 

1997H - Imprime a mensagem de erro SYNTAX ERROR. 

1D78H - Rotina chamada pela instrugao RST 10H (ver figura 1). 

1D91H - Executa um comando RESTORE normal. 

1E4AH - Imprime a mensagem de erro ILLEGAL FUNCTION CALL . 

1E5AH - Traduz a string representando em ASCII um numero decimal 
para hexadecimal e poe o resultado em DE. 

1EC8H - Procura entre as linhas existentes do programs BASIC acjuela 
cujo numero de linha e igual ao conteudo de DE . Ao acha-la, 
poe o enderego da sua posigao de memoria em HL. 

2337H - Calcula o valor da expressao para a qual HL aponta (nao im- 
ports o tipo: string, precisao dupla, precisao simples ou 
inteira), pondo o resultado no acumulador de software e 
setando a flag 40AFH para indicar o tipo do resultado. 

260DH - Poe em DE o VARPTR da variavel para a qual HL aponta. 

2B02H - Calcula o valor da expressao para a qual HL aponta e poe o 
resultado em DE. Ocorre um TYPE MISMATCH se a expressao for 
do tipo string. 

4003H - Vetor da instrugao RST 10H. 

4020H - Contem a posigao do cursor na tela. 

403DH - Flag de tela no modelo I. Seu conteudo pode ser: 

0 - 16 x 64 caracteres 8 - 16 x 32 caracteres. 

40A0H - Ponteiro do espago reservado para strings pelo BASIC 
(conteudo determinado pelo comando CLEAR) . 

40AFH - Flag tipo-de-var iavel do acumulador de software. Seu conteu 
do pode ser: 

2 - inteira 4 - precisao simples 

3 - string 8 - precisao dupla 

40B1H - Ponteiro do ultimo byte utilizavel pelo programa BASIC (topo 
da memoria - RAMTOP) . 

40B3H - Ponteiro do buffer usado pelo BASIC para manipular as strings 
temporar iamente, quando esta calculando uma expressao do tipo 
string . 

40B5H - Inicio do buffer de manipulagao de strings. 

40E8H - Ponteiro do stack do BASIC. 

40FFH - Aponta para o proximo dado do comando DATA que devera ser 
lido pelo comando READ. 

4121H - Acumulador de software. Nesse enderego (e nos vizinhos, se 

necessario - precisao simples ou dupla), o BASIC armazena tem- 
porariamente os valores das variaveis e expressoes que esta 
manipulando, setando a flag em 40AFH para indicar o tipo de 
material com que esta trabalhando. 

41ACH - Vetor da mensagem READY. 0 interpretador BASIC passa por aqui 
imediatamente antes de imprimir READY. 



Figura 2 



1 </></> DEF INTA— ZlFORK-iTO3«FORX-lTO32»Cl„S<X>«80UNDX*i.5.X#NtXTSMEXI 
110 READX , Y s IFY < 0THEN130 

120 DR AU ( 63 . 47 H 0 < y . Y > . SET I SOUNDRND < 30 ) , R ND < 20 ) = DR AW ( 63 ,47) TO(X . 1 
l.ftESEMSET <X. 1 > stiOTOl 10 

130 FORX»0TO78«DRAMl63,47)TO(X,i0>,SET«SOUND45,25sORAW<63, 47) 10 <X 
, 10 ) .RESET* SET (X , 10 ) s NEXT 

140 FORX»lTO20s lNDERSF:0IO39.64T0103,i28TO167, 1 92T0231 e SOUND! 00 , 50 
*NEXT«Y*0 

150 F'OR X»1 TOi# s SCROLLS 1 GOSUB990 : NEXT 

170 X=X- U F OR Y-i T024STEP2: SCROLL! « SCROLL. 1 SY«Y+1 IGOS(IB9?0:QOSUB990 
iY«Y-l5NEXr»Y«Y-l 

175 F'OR X*»9T008TEP -l t SCROLL* « G0HUB99* * NEXT « X-0 

180 FOR Y-24T018TEP-2 1 SCR0LL2 « SCR0LL2 « Y»Y-2 « BOSUB990 5 6O8UB990 « Y=Y* 
2:NEXt 

190 FORW=l , lO10aREADA.CnDRAMl63,47)TOlA,C) , SET « SOUNDRND ( 30) ,RND<30 
> !DR AU( 63,47)10(8,0 , RESET«SET< A ,C> J GOSUB990 » NEXT : RESTORE! 060 sGOT 
0190 

990 INVtRSE.X*64 + Y T0X*64+39 + Y ■ X»64-t-64+YTOX»A4+1034'Y ,X*A4 M 28 + YTOX* 

64+167+Y , X*64+192+YT 0X064+231 + Y 5 8OIJND20 > 20 ! RETURN 

1000 DA T All , 0,10. 0,9, 0,8, 0,7, 0 , 6 , 0,5,0, 4,0,3, 0,2, 0,1 ,0,0, 0,0, 1,1, 

1.0. 2.1.2.0.3.1.3.0.4.1.4.2.4.3.4.4.4.5.4.6.4.7.4.8.4.9.4.10.4.11 
,4,11,5,10,5,11,6,10,6,11,7,10,7,11,8,10,8,9,8,8,8,7,8,6,8,5,8,4, 

8. 3. 8. 2. 8. 1.8. 0. 8 

1010 DATA 22,0,21,0,21,1,20,1,25,3,24,3,23,3,22,3,21 ,3,20,3,19,3, 
18,3,17,3,16,3,16,4,17,4,16,5,17,5,18,5,19,5,20,5,21,5,16,6,17,6, 

16.7.17.7.16.8. 17.8.18.8.19.8.20.8.21.8.22.8.23.8.24.8.25.8 

1020 DATA 30,3,31,3,32,3,33,3,34,3,35,3,36,3,37,3, 38 ,3,39, 3 ,39,4, 

38.4.39.5.38.5.30.4.31.4.30.5.31.5.32.5.33.5.34.5.35.5.36.5.37.5, 

30.6.31.6.30.7.31.7.30.8.31.8.36.6.37.6.37.7.38.7.38.8.39.8 

1030 DATA 54,3,53,3,52,3,51,3,50,3,49,3,48,3,47,3,46,3,45,3,44,3, 

44 . 4 . 45 . 4 . 44 . 5 . 45 . 5 . 44 . 6 . 45 . 6 . 44 . 7 . 45 . 7 . 44 . 8 . 45 . 8 . 50 . 6 . 51 . 6 . 52 . 6 , 

53.6.54.6.54.7.53.7.54.8.53.8.52.8.51.8.50.8.49.8.48.8.47.8.46.8 
1040 DATA 59,3,60,3,61,3,62,3,63,3,64,3,61.4,62,4,61,5,62,5,61,6, 

62.6.61.7.62.7.59.8.60.8.61.8.62.8.63.8.64.8 

1050 DATA 69,3,70,3,71,3,72,3,73,3,74,3,75,3,76,3,77,3,78,3,69.4, 
70,4,69,5,70.5,69,6,70,6,69,7,70,7,69,8,70,8,78,4,77,4,78,5,77,5, 
78,6,77,6,78,7,77,7,78,8,77,8,76,8,75,8,74,8,73,8,72,8,71,8,-1,-1 
1060 DATA5 ,20,9,20,10,20,2,20,4,20,1,20,0,20,3,20,6,20,7,20,8,20 



Figura 3 - DEMO l /BAS 
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Figura 4 - DEM02 /BAS 



. DRAW(Xl.Yl) TO (X2.Y2), SET: dcse ; 
nha uma linha rcta do ponto(XI.Yl) ate 
o ponto(X2,Y2), variando XI e X2, de 0 a 
127, e Y1 e Y2, de 0 a 47. Se for cscrito 
RESET ao inves de SET, a linha scrd apagada 
ao inves de acesa. A rotina usada ncste progra- 
ma, para unir dots pontos na tela, foi ligcira- 
mente modificada a partir da desenvolvida 
onginalmente por Hardin Brothers, na revista 
80 Micro (de setembro de 1985). 

SCROLL X: este comando movimcnta 
toda a tela de acordo com o valor da flag 
X(que varia dc 0 a 15). Se o bit 0 de X esti- 
ver setado(X-l), o comando movera a tela 
uma coluna para a dircita; se o bit 1 estiver se- 
tado (X =2 ), o comando movera a tela uma co- 
luna para a esquerda; se o bit 2 estiver seta- 
do(X*4), o comando moverd a tela uma linha 
para cima; e se o bit 3 estiver setado(X" 8 ), o 
comando movera a* tela uma linha para baixo. 
Valores intermed iarios ate 15 move-la-ao 
diagonalmente. 

RESTORE X: este comando faz com que 
o proximo valor lido pelo comando READ 
seja o do comando DATA da linha X. 0 valor 
de X dcve ser um numero de linha existente 
e nao pode ser uma variavel. Se a linha X nao 
contiver um comando DATA, a mais proxima 
linha de maior numero com um comando 
DATA indicard a leitura seguinte do comando 
READ. A rotina original do comando RES- 
TORE X foi feita por Hardin Brothers e publi- 
cada na revista 80 Micro (de junho dc 1983). 

Todos os comandos acima aceitam expres- 
soes aldm de varidvcis e numeros, com exce- 
9 S 0 de UPC(X$) e SWAP que cxigem varidveis 
string e de RESTORE X, que exige um nu-. 
mejo de linha. Assim, formatos como: 

DRAW U5.X-4) TO ( SIN I X ) * 30* 20.COSI X) * 20+ 10) , SET 
CLSIMIDSCXS.Y, I ) ) CLS(X* ISOR(V))) 

INVERSE INT(U*V)/2 TO INT ( 1XT( V-U )/2- INT<W*K >/2 J 
SOUND X.ABSrx) SCROLL N/4 

LOCATE RND( 16) -I, RND164I-1 

sao perfeitamente legais, desde que as varid- 
veis nao ultrapassem o valor mdximo permiti- 
do(ca$o em que o computador indicard um 
erro tipo ILLEGAL FUNCTION CALL). 

OBSERVANCES FINA1S 

Eu sugiro ao futuro usuirio do SBASIC 
que, para facilitar a sua tarefa, cscreva um ar- 
quivo JCL que inicialize o SBASIC automati- 
camente. Para faze-lo, entre no BASIC nor- 
mal e digite: OPEN'T'.l “SBASIC/JCL”: 
PRINT# 1, “LOAD NCOMS/CMD”:PRINT# 
1,‘‘BASIC’’:PRINT # 1 “DF-FUSR-&HFBCO 
:S”USR(0):NEW”:CLOSE. Depois disso, bas- 
tard escrever DO SBASIC /JCL no DOS REA- 
DY, e voce logo estara no SBASIC. 

Junto com o programa NCOMS/CMD vem 
cinco programinhas em BASIC, numerados de 
DEMOl /BAS( figura 3) at<S DEM05/BAS( fi- 
gura 7), que demonstram as novas e interessan- 
tes possibilidades dos novos comandos im- K 
plementados. Eu espero que voces me descul- St. 
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NO VOS COMAN DOS DO BASIC 



U(1 Al ESbOh [0 DO SDAS.H: « 



100 CLS»DRAW<2,2)T0< 125,2) ,SET*DRAU<2,45) T0< 125, 45), SET 
110 DRAU< 1 ,2) TO ( 1,45) , SET SON AW <2, 3) TO <2, 44 ) .SET 
120 DRAW! 127,2)T0< 127 , 45 ), SET SDRAM C 124, 2 > TO C 126,45) ,SET 
130 X = B : y»30 m«l«Yl»2« S«»"S" 

140 LOCATE X,Y« HR I NT !3*» 

145 IT X > 13 OR X < 2 THEN X1=-X1! SOUND 100,50 
147 IF Y 161 OR Y<3 THEN Yl»-Yit SOUND 50,100 
1.50 FOR K«l 10 50! NEXT 

153 A*»tNKEY*s IT A*-"" ELSE IF A8C<A*))3i THEN S*=A* 
160 LOCATE X,y= PRINT " "t 
170 X-X+X1. ! y*t*Ui SO TO 140 



Figure 5 - DEMO 3 /BAS 



3 REM »»» DEMOS/ BttE RADAR 
5 RES 

1.0 FOR N>. 001106. 28STER .02 
35 SET < 63+44 «COS < N > , 23*2 2*5 1 N < N ) ) 

40 NEXT 
45 06 ST-0 

50 FORN~.001TO6.aeSTEP.lS 

60 DR AU<63,23)TO(63643«COS(N>. 23421 •SIN(N>> .M I 
62 IT POINT ( 73 , 10 ) THENF o-l« SOUND50 , 50 
65 0RAW<63,23H0(63-T43*C0SIN),;!3+21»SIN'.N>) .RESET 
67 .1 TFT HENSOSUR 1 00ELSE.T'OWO1 IO101NEXI 
00 NEXT 
90 SOIO50 

1«0 SETT 73. IS ) «C»C- l « IFt«0 1 HLNT *■» s C«fc (RESET < 73 , 15) 
110 RETURN 



Figura 7 - DEMOS /BAS 
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30 


DR AW < X , 0 ) 7 0 


127- 


X, 


47) , SE T 


40 


INVERSE 








50 


SOUND 127-X 


50 






*0 


NEXT X 








70 


FOR X=4A TO 


1 ST 


EP 


-1 


80 
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0 GOTO 120 









Figure 6 - DEM04 /BAS 



pem pda falta dc modestia do programa 
DEM01 /BAS!. 

Duas obscrva^ocs importantes: primeiro, 
esses novos comandos nao funcionam se colo- 
cados imediatamcnte apds urn THEN ou um 
ELSE. Assim, sc liver de usa-los em um co- 
mando IF-THEN, ponha algum outro coman- 
do antes, ou pelo menos dois pontos(:>. As 
linhas IF X-0 THEN F-l: SOUND 35,35 
ou IF X-0 THEN: SOUND 35,35 funcionam 
erfeitamente, mas IF X=0 THEN SOUND 
5,35 produzira uma mensagem de eno. Em 
segundo lugar, nao tente colocar uma varia- 



vel string no lugar do SET ou RESET do co- 
mando DRAW; a linha A$-‘‘RESET”:DRAW 
(10,10)TO (127,30),AI produzira uma men- 
sagem dc erro. 

Outra coisa: se o seu computador nao 
ossui cc-cedilha, delete as linhas 2450 e 
460, pois elas nao servirao para nada. 

Se voce estiver interessado em criar 
novos comandos, la vai uma dica: enquanto 
estiver checando o comando no buffer para 
onde HL aponta, nao modifique nenhum rc- 
gistrador, exccto AF. Algumas outras rotinas 
da ROM que usam a instru^ao RST 10H po- 
dem esperar que determinados registradorcs 
contcnham ccrtos valores. Tome tambem o 
cuidado de verificar qualquer erro possfvel: 
sintaxe, falta de um ou mais parametros, pa- 
rametro grande demais. . ., etc., se nao o 
programador podcria fazer algo que congelas- 
se o computador(por exemplo, ele podcria, 
sem querer, tentar inverter a memoria do te- 
clado, pensando que ainda esta no vfdeo). E, 
antes de pular para o endere^o 1D78H, tenha 
certeza de que HL esta apontando exatamente 
para o ultimo carater do seu comando. Assim, 
o interpretador do BASIC incremental HL 
e pegara o prdximo caraterf: ou o byte OOH), 
que indica fim dc comando; ap6s o que ele 



ira interpretar o comando segumte. 

Mais uma coisa: lembre-se dc que o pro- 
grama NCOMS/CMD ocupa a memdria a 
partir do endereijo 0FC01H. Se voce estiver 
usando um programa BASIC que de _pokcs 
para uma rotina em linguagcm de ma'quina 
nessa area, os novos comandos nao funciona- 
rao. Para digitar o programa, entre com os 
codigos cm Assembler da hstagem NCOMS/ 
CMD e depois passe-os para o disco com um 
dos comandos abaixo: 

Para NEWDOS: CMD “DUMP NCOMS/ 
CMD,&HFBC0,&HFF63,8iHFBC0” 

Para DOS 500: CMD T\ “DUMP NCOMS/ 
CMD(START=FBC0,END-FF63,TRA-FBC 
or 

Se voce tiver qualquer sugestao ou pergun- 
ta, escreva-me, pois terci o maior prazer em 
ajuda-lo. Meu nome e endcreco sao: Sergio 
Santa Cruz - Rua Jose Hipdlito Cardoso, 225 - 
Boa Viagem - Recife - Pernambuco, CEP 
50000. E Boa sorte com seus novos coman- 
dosl 



Sirgio Santa Cruz 4 programador autodidata 
de BASIC e Assembler Z80. Ele 4 usuirio de 
um DG T- 100 com drive hi tris anos. 
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COMO COMPRAR PROGRAM AS: Fa pa mu padido por carta, relacionando o oddigo dot produtoi, quantidadet, valor unitirio a total por produto. 
Ao terminar feche um total garal. Nouot prepot para PROGRAMAS \i incluem at datpetat pottait. NSo m atquapa da idantificar-M a ao local para ra- 
matM. Anaxe chaqua nominal t ATI EOITORA LTDA. Av. Prat. Wilton, 168 grupo 1210 - Centro - CEP 20.030 - Rio da Janeiro - RJ. Sau padido aari 
prontamente atendido logo apdl a liberapfo pala rede bencSria do valor corratpondante. 

GravapAet garantidat por 30 diat a partir da data da atendimento do padido quanto a dafeitot de fabricapfo. 



aBMMkpa Pedtdot par* at llnhaa APPLE, MSX t SINCLAIR, tomenta ttrio atendidol quando ootocedoa por correio. Em nota loja atendamoa toinente t llnhe 
W I I1U ZX SPECTRUM, neat* oaao com 20% de daaconto aobra o prapo littado. 

B aal 0 At ofarta* equl eontidet tomente Mo vdlidat para pedidot colocsdot por correk). induindo-t* neat* limitacdo a linh* ZX SPECTRUM. 



IIFIIMlTICI CORRESPONDENCE: PRAIA DE ICARAf,211 / Lj. 03 - NITEROl - R J - CEP 24.230 - TEL.: (021) 717-170C 







TECNOLOGIA EM INFORMATICA 




SUPORTE EDUCACIONAL 

Centro de Computa^Ao • Central de DigrtagAo • Bibloteca 

- Minicomputador Multiusudno — LaboratOno de Microcomputadores 

- Terminals ligados a equipamento de grande porte 



FORMAMOS PROFISSIONAIS 
ATUALIZADOS COM AS 
MELHORES TECNICAS EM: 

• ANALISE E PROJETO DE SISTEMAS 

• ORQ. SISTEMAS A METODOS 

• PROGRAMAQAO DE COMPUTADOR 
(COBOL) 

• DIGIT AQAO 

MICROINFORMAT1CA 

• UNGUAGENS: BASIC. MUMPS 

• SISTEMAS OPERACIONA6: 

CP M. MS-DOS 

• PLANILHAS ELETRONICAS: 

LOTUS 1.2.3, MULTIPLAN 

• BANCO DE DADOS: 

DBASE II. DBASE III 

• PROCESSADOR DE TEXTO: 
WORDSTAR 



H 



LTO 

INfOnMAtlC A 

Av. Rio Branco, 173 Sobrato)* 
Tel.: 262-9364 



253-1120 



Com a Centraldata 
a entrega e imediata 



253 1120 



NAO PONHA EM RISCO O SEU COMPUTADOR. ADQUIRINDO 
PRODUTOS DE QUALIDADE CONSAGRADA. 



MiDIA MAGNETICA 

• Disketes e fitas magn6ticas, marca DATALIFE 
VERBATIM, com 5 (cinco) anos de garantia 

• Discos magn6ticos, marca IMPELCO, com 
1 (uml ano de garantia 

• Disketes de 5 1/4" para limpeza do cabegote de 
leitura e/ou gravagSo 



• FITAS p/impressoras em geral, marca 
CARBOFITAS, com garantia total contra defeitos 
de fabricagdo 

• Etiquetas PIMACO - PIMATAB 

• Formul£rios contlnuos e pastas 

• Arquivos p/disketes com capacidade para 
10 (dez) ou 100 (cem) disketes 

condiqOes especiais 

PARA REVENDEDORES 



Suprimento e coisa seria 




a 


PCHTIII mil Distribuidor Autorizado: 

l L n 1 R A L U A 1 A carbofitas • pimaco • verbatim 

Com . Nepreiemacon Lid. Av. Presidente Vargas, 482 - Gr. 201 /203 

1 Tel.: KS (021 ) 253-1120 - Telex (021 ) 34318 






oosue ne«t • goto 10 c 



a w .9 e :®au -la -s daa»- » 9 

2*80 oe^uo*. 

•e;o : » nl«o t "Cn go-o 3900 

2620 'OB Nal ▼O 20 POINT AT N 0 



1160 IF H I® THEM lE t UU-yU^.Oi 
1163 „ET *.»*UT IF H I® THCH 4 .B 
T *»19 lE~ UU «0 

1163 2 F » * THEN let . «4 

1164 IF <29 THfn LET . . 4 ® 

1165 lET h««* 



zx spectrum zx spectrum zx spectrum zx spec 



Forga 



fOTf* 
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Mircio Jose de Carvalho 



Elaborado para micros compativeis com o ZX Spectrum, 
For^a e um jogo de a^Jo que vem dividido em duas fases: na. 
pnmeira. seu canhfo- laser defender! a Terra de naves mvaso- 
ras, sendo que no alto da tela sfto mostrados a disponibilidade 
de munifdo (For;a) e o placar Somente quando se esgotam as 
reservas do canhdo i que se passa 1 segunda fase. 

Devido ao elevado grau de periculosidade, a for(a laser 6 
afmazenada em uma nave que aparecerd no alto e ao centro da 
tela. Dessa maneira, voc6 deverd subir com sua arma, acoplan- 
do-a no meio da nave-mie para o reabastecimento. Se conse- 
guir, o jogo continua, voltando d fase inicial. Caso contrdrio, 
vocd perde uma vida. 

DIGTTAgAO 

liucie a digita^io pelo bloco que vai da linha 9000 a 9200, 
para redefm^So de caracteres. Isto feito, digite GOTO 9000, 
que facilitara a digita^Jo do restante do programa. 



Caracteres grdficos utilizados 
Unha 50- “BCD" 

Unha 182- "A” Inverse de “ " e **C" 

Unha 1002 - Inverse de "DoooooooB” e Inverse de “C 
= — A" 

Unha 1166 Inverse da letra "O" 

Unha 1 168 - Grafico da tecla "3" e Inverse de “C” 

Unha 1170- Grdflco da tecla "3" e Inverse de “A” 

Linha 1 172 - “A” e grdficos da tecla "3" 

Linha 1 174 - “B” e grdficos da tecla “3” 



MSrao JosS de Csrve/ho 4 Admmutredor de Empresss e r rebel he etuel 
men re ns THEM AG Engender te Ltde . Bet4m. PA Progrsmendo em hn- 
guegem BASIC (TK90X). ele 4 um eutodidete 



• SEP [ IS ITA 005 NO m 3 PC ■pAPHKS- 

1 $ INVERSE 0 * 

20 GOSUB G 00 O 

is gcsue eooc 
n ;o sue ~ooo 
as -r vxdao 

26 ^E- 5 »0 

4« t r *. »ao 

50 ::»**•* ;o .r T ; • e* 

.. .r A® i ■ lit , tfT A® 3 • 

Ilk .f -® * • Ilk 

!)< IN* i eacsc § M 
i 9 t eers" a- c j 2 

IIXI BAP EA * IIIIX 

.r -us »-c*i 

lit •:» • ■ i la 

ill .E~ • ■In- ® 0 u**C 

.24 16 50 «n: .24 14 

192 -E* - -.2 -E- - 1 *' 

*2 6 -2 -E” 

162 pbin- ft* ■>! ftT • 

a> A® a 

1*8 :• IN-E ®» 9 AN 0 t 26 The*. 



1*2 :• IN-E •> 9 

tf ■•"*2 

1*2 IF IN»*E ®- 9 
a>-a 



17^ IF XnpE •• 2 then 00T0 220 
9 

102 PBINT AT 41 , . -1 
168 LET XXl.X* LET hl.h 
19 ® LET hahal 

200 LET *».*.♦* IP .. 29 THEN 
LET «.-l 

210 IF xx . 1 THEN LET «>1 

229 IF h «20 THEN PBINT AT l» 0 



226 BBInt a- 0 21 papeo « » l a 

: ac . • 

232 PBINT A- 9 ®w 4 

422 IF • 22 *-Ch SOTO 196 
:222 CAC£C • IN- 2 20 ACEB l C 

L 9 

22 oa_s*>iNT a 

I*.* PNC *22 .4 .r -. 1 * 

1929 P = A* 21 9 PAPEB 2 III 
c-r;c i ::: caeca a IIII! 

iniiiiiiii::::iiiii 

1939 fc r :« 3 i 
1120 *:b h »9 -0 29 

1141 BBXNT AT h . AT Hal .-1 

1142 IF IN-E ®> 9 Then uET <t«v 



f -.09 

1144 IF INKEY 0 - 

y-.es 



1166 BOINT AT h n ■ AT Hal a - 1 

llll-PBXNT AT 10. 6 

11*0 PBINT AT 11 ,n " a J 

li?i PBINT AT S 28 -n.’ f ^^ 

117 4 PBINT AT 9 , 20 -n. 

1176 LET K.INT t H ♦ , 8 • LET L-INT 

<»♦.§> let f ■ sasae+r »324L 

11*9 IF INT i L* . 5 4 18 AND I NT 
4 . 5 ’ -a then GOTO 159 C 
11*0 SOuNp . 01 .C 

1190 POINT AT ai C ' AT Hal • 
1192 .r C-C -.3 

1194 IF C .1 OB H.a 0 B XnT PEE 

» p 19 4 IB IN*- PeE* » • 3 1 



* p if 4 DB INT CEE- e 

10 4 C e In- cee* e-33 

0 4 --EN CCTC 1990 

1299 nE»- - 
1219 MI*** 0-9 9 A- | f 

•t 19 29 •* 11 26 



OC*’: 1192 
339 . e 2922 



.... -.N- at 3 if 

1612 f;o s.i -3 2 SOLK 9 9 9 

font .2 9 90 L-NC .6 * NE** h 9 
3 vnC 1 12 

19 39 OB is- A- ifl - IN- 9 X 0 *» 

9 : ACCP^AGEH OEBFeira 

1849 33 T 0 :® 0 « 

1999 509 jB 2500 LET c|T 

HtHai FQB N • 1 TQ 7 XNh N GOl 
UB 2606 fqd N ■ 1 TO 20 90 UNC 1 . I 
20 -N NEXT N 50 UNC . 5.1 90 UNf 
• 8,0 

1610 POINT H- 16,6 IN* 0 . 6 BXGH 
T 1 3 UA AC 0 PLAGEH FALHOU 1 ' 

1920 .ET I! A-'JlDA-l IF 'XC'A.O 
*HEN JOTO 5002 
1902 f;,c N » 1 -0 300 NE*T n 
1910 GOTO 42 

2002 PwO* --s-ao :e :ba in* * 

2 H 5 -* 4 e F 0 « N.i 2 TC 

coin- a- n i *2 »«E • t •. 

»f* •"J-l IF I NT •• *h 

en .r •••-loo oosue 2999 ne •- 

H 

2999 IF -.aC -— E*. BB In— a- e 9 
23 - : loco 
3812 im 

2999 ;::.e 2502 se^jb*. 

3682 1 9 T B® IN- •. 

;:?.e 2626 -«•- s jc*: 2619 

2699 P^C* ••* 9-5 1*9 — *9 3 *A. 

19 15 :oa. 12 -18 &AAw 2 19 C 
BA. « - 12 :ba- 18 18 :ba, .1 
li .PAj 12 c :oa. -12 -3 : 8 a. 



29-h A- 1C n AT i 

1 n be-ubn 

2920 IF a It.— • . 5 I OB alNT 

••- 1 . 6 ' OB -alNT X ) — . 5 ' Then GO 

sue 2502 -E* v-idftavkdft-l X' i 

d *-0 "■HEN GOTO 5000 

2910 BETUBN 

3099 GOTO 1000 

9000 CACEO - CL 5 PBIN- A- 10 

4 acce;en-ahc« os pesame; 

10 XHPEBIO :-E 3 JO I j* A- 13 

i o M»tr* » 

1C PwOT ie 62 XNr a DAAU :®- 

9 :ba. 9 :e oba. -i»- c c-oa 



NEXT N 

2700 PETUON 

2902 LET 0,m pop z«i TO 9 IN* 

I LET *..11 LET . . .n Gf 5UB 260 
6 LET m.® lET x*.29-n GOluB 2 

686 NEwT i L c- h . q 

2992 COINT AT 3 2e-n AT » 



i f nid'* » 

ic PwCT ae eo in* a 3 »au :®- 
9 dft- 2 30 DBA- 2 : 8 a_ 

9*99 tow**; .e ii joj**: .e :e » 
lunt .2 10 SOlPO .9 19 SO^NC 
i 29 .8 19 53 . n: .611 

» 3 un; ,f 23 53 unD .4 ii 
.2 it SI . *43 .5 10 5 CJNC .6 :5 
»;-S -o 89 !-.s: .4 10 93 . Hi 

.2 16 9 C J*Z 1.2 18 

Silt 8 * 18 ^ 9 bapeo 2 IN* * I 

L I 

I tL^BS TV* A- 4 B H ■ 

a- e * ■ ■ ■ ■ 

off roffr-AT 7,4 Hi ■ ■ ■■ 
off ep^^a* 4 ■ ■ | iH 
toff «5 t B «t 9 4, ■ ■ ■ a* 

fo!^FbTMt"at 1 C 4 ■ m 

" XNUEB 5 E 1 PLOT 90 
#0 C'BAU 2 10 

0049 PLOT *2 120 DPAu * 1 DBAU 
• -9 c Cftt -i i C-BAu 2 . 2 
6946 Bk.0 T 152 102 1 PA_ 6 -i [B 

A.. 0 ' C'BAU 5 PcOT 192 .38 

DBAU 6 19 

6850 In- 6 X*vC» 5 E 2 Pl 3 * 29 * 
8 215 2 : aa. C 92 DA A- • 

a 15 0 DBA. a -52 
6 B 92 P k O- • 3 *3 :ba- 28 ® 9 I«A 
9 *4 ;ea. -22 2 2 : sa 9 • *4 

•859 B. * 52 52 :ba_ -2 2 -PI • 
;«ft. 1 92 2 =: 5 t.I’ 199 32 
DBA. *9 5 «I 12 C;. 3 - 59 4 ® Z BA 

- 99 2 PI 5 
6996 ;:s.e eatc 
*262 :ba s 3 =_:~ 42 130 

• 4 e.r 30 112 CPA- IN eo«f 
; In* ' eaefc 4 -5 * 

6864 coint a- i~ ic 2 PAPf 

• * In e° 5 E 1 -** cp:iBA-A CE 

*- ie a ; wEbgeot eep-RANC *pa 
nC a ; 90 3 A- ao 4 -BADuCAC E A£ 
AP*ACA 0 de at a 1.2 -ABC XO CAB 
•AlhJ 60 A 3 XL 1205 
• 0*2 sound . i a: sounc . 11 # 5 

O'JND 1 ai 50 LNC . 1.19 SC'UNC .1 
, 1 * SOUND . 1.16 SOUND .1 14 5 

OUNC . 9.13 50 UNC 1 14 
60 1 FDC TO 123 NEXT n 

00*2 SOUND .1 9 SOUND .1 7 SOU 
ND 1.9 SOUND .5 4 SOUND .6 9 
SOUND .5 1 SOUND 1.2 
08*3 FQB N ■ 1 TO 100 nE-T n 



• 8*9 SOON© .1 -3 SOUND . 1-9 5 

3 UND I -3 SOUNC . 1,-9 SOUND .1 
-* SOUND . 1-6 SOUND . 1.-19 
SOUND .5 11 SOUND 2,-10 

0076 SOUND . 3,-11 SOUND . 6,-6 
SOUND .3 -5 SOUND . 3.-2 SOUND 
. 3,1 SOUND .34 SOUND . 3,7 60 

UND . 3.10 SOUND 8.2 
6090 BETUPN 

6299 lET G .6390 PLOT 100 50 00 

! ui o 

999 Plot *9 55 G 05 UB G 
■ 94 P t pT 109 se GOSUB G 
196 PlOT if® 45 GGSuB G 
6296 PcDT 195 5 « 00 SU 8 G 

t i 9 Pk. 5 * 142 If GOSuB 0 
11 »wP* 149 48 BOSuB G 
♦ 1 4 PwPT 103 B 2 BOSuB G 
6 19 Pl£* 89 59 GOSUB C 

6 88 :oa :*;8 3 DBAl - 12.-1 DBA 
« V 1 DBAw 9 9 C BA. 9 1 DBA. 

0392 PE- -An 

*iH ii \* T a^ 9 4 6 TS *, 1 af^ 

*228 PBXN- A- 22 -uOCE CE.E En 
PA|nTAA^^ JBANDE ATAOuE 

*S 3 o"pPInT 5 3 - 9 . 8 . - 0 UAND 0 SyA h 

UNtCAO SE ACABAB UOCE POOEBA 

se PEABASrecEP AC 0 PLAND 0 .su 

A NA'.'E NO CENTPO " i" DA BnA 

U| AMlBALt SITUADA NO AlTO DA 
tela. ■■ 

7040 PBINT AT 12 . 0 ' PAPA DEPP 
MOEP SUA BASE. . . 

7090 POINT AT 14 0 T ECLA 7 



BINT AT 14 

6U0XB TECLA e 

fSOUEPpA TfCLB B 

DJBEITA tecla 0 

.... aT IP AC 

*060 19 * w0Cf 

*9-0 PAIN? A A- ai 0 TOOuE U« A *e 

Cc • 

*068 I' In*E -HEN GOTO *868 

*269 Af^^AN 

2980 f.,« - a® -o 55 

•919 PfA: I p> E USB 4 46 • h 

•926 IA-A 9 9 9 9 3 31 12* 295 2 

ft 12* 31 3 9 C 9 0 9 9 9 9 111 

2*9 294 299 255 254 249 192 9 9 

2939 CA-A 12 - 60 *2 SO »6 64 224 
224 254 34 19 it 6 2 * * 192 23 

1 ;®« :»• .02 :oi ea 24 



TECLA 7 
TECLA 5 

TECLA 6 
tEClA 0 



l.l|8 l»8 1' 

6299 BffuBN 
2219 SA E 'Ore® 
20 GOTO 1 








zx81 zx81 zx81 zx81 zx8 
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« 


britrnir^^H 


Bomba 






Henio de Araujo Bezerra e 
Jodrian Soares Amorim 



Neste jogo, para a linha ZX81, um 
grupo de terroristas espalhou cinco bom- 
bas no navio ingles Britania, e voce, 
perito em desarmar artefatos explosivos, 
formado em engenharia belica, foi o es- 
colhido para salvar a real cmbarca;3o 
inglesa do naufrdgio. 

As bombas estdo numeradas de 1 a 
5, sendo que o leitor deverd desarma-las 
sem afundar o navio. Cada bomba pos- 
sui dez fios, distribuidos da seguinte 
maneira: 

. 2 fios-armadilhas - caso qualquer 
um deles seja cortado, a bomba explo- 
de. 

. 3 fios-ativos — para desarmar a bom- 
ba, e preciso cortar todos os tres. 

. 1 fio-conjugador - sua fun^ao sera 

explicada mais adiante. 

. 4 fios-neutros - nSo tern fun 9 lo. £ 
indiferente corta-los ou n3o. 

Inicialmente, voce informa qual a 
bomba a ser trabalhada; em seguida apa- 
rece um painel com os dez fios da bom- 
ba, entdo voce deve ir cortando aleato- 
riamente os fios. Ocorrendo uma das 
situafdes abaixo, o navio afundard: 
se a bomba n 9 3 explodir; 
se a bomba n? 2 e qualquer outra 
bomba explodirem, 

. se tres bombas quaisquer explodi- 
rem. 
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14562 


D 1 


22 


C5 


ED 


60 


Cl 


97 


12 


16570 


09 


03 


E5 


Cl 


25 


ED 


65 


0E 


16576 


12 


09 


Cl 


10 


E5 


11 


00 


0" 


16566 


IB 


-B 


82 


20 


*B 


0D 


20 


D5 


16594 


L9 


0“* 


34 


0* 


81 


0* 


05 


0? 


16502 


06 


08 


88 


06 


05 


00 


65 


80 


16410 


05 


00 


00 


00 


00 


00 


00 


00 


16513 


00 


82 


81 


01 


84 


08 


08 


08 


16623 


08 


08 


08 


08 


05 


«H 


0C 


40 


16634 


01 


13 


00 


09 


F4 


01 


21 


00 


16642 


09 


EE 


El 


3E 


15 


01 


0C 


00 


16650 


E5 


ED 


SO 


El 


01 


15 


00 


EB 


16655 


09 


EE 


3D 


20 


F0 


2R 


OC 


40 


16666 


01 


13 


00 


09 


01 


21 


00 


3E 


166?* 


05 


89 


3D 


20 


FC 


EC 


21 


D3 


16682 


40 


3E 


03 


01 


oc 


00 


FD 


60 


16690 


EB 


01 


15 


00 


09 


£6 


3D 


20 


16696 


F 2 


C9 















List a gem 1 



No im'cio do jogo, as bombas 3, 4 e 
5 sao conjugadas, isto e, seus fios sao 
iguais. Por exemplo: se o leitor traba- 
Ihar na bomba n 9 5 e, ao cortar o fio 
n9 2, ela explodir, entdo, o mesmo 
acontecerd com as bombas 3 e 4 quando 
este fio for cortado. S5o dois grupos de 
bombas: 1 e 2 (primeiro grupo) e 3, 4 
e 5 (segundo grupo). 

Esta situa(3o de bombas conjugadas 
permanece atd que voce corte o fio que as 
une, o fio conjugador. Assim, todas as ou- 
tras do mesmo grupo terdo seus fios renu- 
merados. Por exemplo, no caso anterior, 
se o fio n 9 2 da bomba 5 fosse o con- 
jugador, as bombas 3 e 4 nfo seriam 
mais iguais d 5, pordm, permaneceriam 
iguais entre si. Esta operafdo ndo afeta- 
*ria o primeiro grupo de bombas. Para 
que o jogador saiba que o fio conjuga- 
dor foi cortado, aparecerd um aviso 
na tela. £ o unico caso em que se 6 
avisado sobre a natureza do fio cortado. 

Durante o jogo, pode-se pedir um 
relatbrio a qualquer momento, teclan- 
do-se R. Se quiser desistir, tecle D. Um 
informante em terra firme conhece o 
numero de um dos fios-armadilhas da 
bomba em que voce estd trabalhando; 
tecle A para entrar em contato com ele, 
voce deve tentar subomd-lo, e ele, en- 



tao, perguntard pela quantia oferecida, 
podendo aceitar ou recusar. Caso ele 
aceite, voce saberd um dos fios que ex- 
plodem aquela bomba. Ao ser suborna - 
do, o informante perde o contato com 
voce para ndo ser descoberto; desta for- 
ma, s6 se pode subornd-lo uma vez 
durante todo o jogo. Lembre-se que o 
suborno s6 6 valido se o informante 
aceitar a quantia. Caso ele recuse, 
voce pode fazer outras tentativas. Para 
facilitar, a pontuasao d feita em dinhei- 
ro. 

DIGITAL AO 

Coloque o Micro Bug publicado por 
MS e, com o auxflio do comando E, crie 
uma linha REM de 200 caracteres. A 
seguir, com o comando M introduza 
(com todo o cuidado) os cbdigos hexa 
da listagem 1 . 

Digite a parte em BASIC (listagem 2) 
e salve o programs em fita com a instru- 
?ao GOTO 5200. 



Henio de Araujo Beierra t estudante da En- 
genharia Entries na UFRN. trabalha no Sat or 
de Computafio de uma empresa de constru- 
f Bes e possui um Color 64. 

Jodrian Soares Amorim de Freitas 4 autodida- 
ta em computapio. estuda Engenharia Ou /mi- 
ca e possui um TK85. 




PRINT RT 11,1. 
12,8 " 



I , AT 11,15, 
EM'.RT 11,38, | , RT 12 , 1 , , RT 

mm ■ RT 12, 18: 'RLTO-MRR', 
RT 12 . 307 T I" 

8 PRINT RT id, 1, | 

RT 13.30. | ,«T H.l."[ 

L RT 1*,30 I ,RT 15,1 "| " ; RT ~15 



.30 



T 'f' : 

9 PRIf 



3 INT RT 
•RT 17,1. | 
RT IS , 1; "| 



IS, 1. "1 " , RT 
RT 17,24. 



RT 



16,30. 

18,16, 



10 PRINT RT 19,1, 



14 

15 

16 
20 
21 
25 
30 
35 
40 
45 
50 
55 
60 
65 
70 

74 

75 

76 

77 

78 

79 
SO 
81 
82 
83 



DIM C (2> 

DIM D i 2 ' 

LET Ui«V| 

DIM K <2> 

LET n l I n ■ 1 9 
DIM M ( 2 • 

■■ G ' 2 • 

M.VRL 
P aM 
Pi aM 

Z ■*jRl 
LET 21«Z 
C IM 6* <5 , 13l 
DIM C$ <5 30» 
LET 0$ ■ " " 

LET R$ a " 12345 
LET Z 1 1 ' 

U aM 
0 ■ INT 
L)at.'RL 



DIM 

LET 

LET 

LET 

let 



LET 

LET 

LET 



0 ” 



1 “ 



' PND *500 ) 

'•l" 



G05UB ’.’RL 2000 

LET u a'v'RL ' 2" 
G03UB '.'RL 2000 

CRND U5R 16549 
CP INT RT 3,4, “ 



TTr 







84 PRINT AT 5,0;" TENTE SRLV 
AR 0 ""BRITANIA"" DONAUFRAG'IO . " 

, , . , " PARA C0N5EGUIR 1550 UOC 
E DE-OE, DURANTE 0 JOGO , TECLAR 
3 SE0UI5ER UM RELATORIO, B 3E 0 
UISERADQUIRIR INFORMACOES E 3 5E 

0UI-5ER DE5ISTIR 
•BOA SOPTE . . . " 

85 PRINT AT 15,0,0*1 TO 32) 

86 IF INKEY* THEN GOTO 90 

87 LET U*=U*t2 TO )+U*il) 

36 GOTO 85 

90 CLS 

91 let = 



' , AT 10,10 



95 PRINT AT 14.12; "U“ , AT 14,1 

5, "t" 

96 PRINT AT 15,2. : 0*. "F" 



92 


PRINT 


AT 


9,10 






■ ” , AT 


11 , 


10, ” 


■ 1 


93 


PRINT 


AT 


12,7 


, 0* ( 


12 . 


8; T” i AT 12, 10 


, -P" 


T 


AT 12,20, ' 


n 






PRINT 


AT 


13,6 


"W 




” ; AT 1. 


1,3; 




- 0$ ( 



97 PRINT AT 16 .4, "1"; 0* ( TO 23 
I T AT 17,5, “T'iOIC TO £ll,"f" 
AT 18.6; 1 0*( TO 19 ); T";AT 1 



9 '98°PRINT at > 15 21 
99 FOR Jsl TO 30 

100 NEXT ,J 

101 LET 0*=" 

102 SLOU^ _ T g 

? <f 'V Or T0'23)''>"*BT 17,5,"%" 
,0*( TO 21) ;"/ "; AT 18 , 6, "%" , 0* < 
TO 19) , "/" 

104 PRINT AT 19,8; 

PR I NT AT 16 ,7; f ■ AT 1 

a i06 PR?!fF i AT H l5 1 l2 : ?'" = ((("; AT 19 
.22. "MJ RT 17,24; "2"; AT 13,11, 
"0" at 13 , 19, "H" i AT 13,25: "8" 

107 RAND U5R 16519 

110 PRINT AT 2 1 , 0 ; U * ( TO 32) 

111 IF INKEY* <>'•" THEN GOTO 114 

112 LET U*=U*(2 TO )+U*(l) 

113 GOTO 110 

114 CLS 

115 GOTO 116+934* IB* (3, 1) *"E" 0 
R B* (2.1) ="E" AND IB*(1,1)»"E" 0 
R B*(4,1)=E" OR B * ( 5 , 1 ) ="E") OR 

B»(1,1)*"E" AND 6* (4.1) s"E" AND 
B * ( 5 . 1 ) s "E" ) 

116 IF UAL A$=0 THEN GOTO UAL ” 
1300" 

117 PRINT AT 2, 2; "EM OUE BOMBA 
UAI TRABALHAR ?" 

118 INPUT 5* 

120 IF 5*=”R" THEN GOSUB UAL "5 
000 ” 

130 GOTO UA L • 118” +17# (CODE 5*> 
=29 AND CODE 5$ <=33 AND LEN S$ = l 
) + 3882 * ( S$ = ”D” ' 

135 LET I=UAL 5% 

140 IF A$ «. I ) < > 11 0” THEN GOTO UAL 
” 170" 

142 FftST 

145 PAINT AT 10,0.” UOCE JA TRA 
BALHOU NA BOMBA N* ” . I; ” ELA ",B$ 

(I) 

147 slow 

150 FOR J=1 TO 25 
155 NEXT J 
160 CLS 

165 GOTO UAL ”117” 

170 IF ZOUAL ”0” THEN GOTO UAL 
' 185" 

175 LET Q=UAL ”1” 

180 GOSUB UAL ”2000” 

185 IF Z 1 < > UAL "0” THEN GOTO 20 

1 

190 LET 0=UAL ”2” 

195 GOSUB UAL ”2000” 

200 LET Z 1 =UAL ”1” 

201 IF 1=1 OR 1=2 THEN LET 0=1 

202 IF 1=3 OP 1=4 OR 1=5 THEN L 
ET 0=2 

205 CLS 

206 LET K 4 = '123” 

215 LET X$= 

216 P'OHE 16674.19 
220 5L0I.-J 

225 PRINT AT 0.0, FI05 DA BOH 
BA ".I; AT 2,0, X S , "0”., AT 4,0,*$ .” 
1" .AT 6,0, X$ ”2”, AT 8 , 0, X$, "3” . A 
T 10 . 0 ; X % , ‘ 4 ” ; AT 12 , 0 , X $ , " 5 " , A^ 
14 .0; X$, ”6”, AT 16 , 0 , X $ . ” 7 ” , AT IS 
, 0 ; X $ ”8”, AT 20 , 0; X$ : ”9” 

249 RAND USP 16631 

250 GOSUB 281+4719* (INKEY$*”P”) 
+2719* ( INKEY$ = ”A" AND U=0)+3749* 
( INKE'Y $ = " D ” ) 

281 IF INKE'Y $ = ” ” THEN GOTO 281 

282 IF INKEY $ = ” 5 ” THEN GOTO 295 

283 LET NL IN =NL IN +2 * ( INKEY 4 = ” 6 " 

) -2* ( INKEY $ = ”7” ) 

284 IF NL IN = -1 THEN LET NLIN*19 

285 IF NLIN=21 THEN LET NLIN*1 



FIOS DA BOH 



286 POKE 16674 , NL IN 

287 RAND USR 16631 

288 GOTO 250 

295 RAND 

296 PRINT AT (PEEK 16674) +1,RND 
* 16 / *'• M 

305 LET NF 10 = ( PEEK 16674-1) /2 
315 LET P=P+1 

320 IF NF 10 =A ( 0 ) OR NFIO=D(Q) T 
HEN GOTO UAL ”400” 

325 IF NF IO=G (0 ) THEN GOTO UAL 

”355” 

330 IF NFIO=C(Q) THEN LET K$<1) 
= ” 0 ” 

335 IF NFIG=KiQ> THEN LET K$'2) 
= “0" 

340 IF NF IO=H CO ) THEN LET K*(3) 
= ' 0 ” 

345 IF UAL K $ =0 THEN GOTO 500 
350 GOTO UAL ”250" 

355 PRINT AT NLIN,0,”FIO CONJUG 

* 360 IF I =UAL ”1” OR I=UAL ”2” T 
HEN LET Z =UAL ”0" 

365 IF I =UAL ”3” OP I=UAL ”4” 0 
P I=UAL ”5" THEN LET Z1=UAL ”0' 
370 GOTO UAL ”250” 

400 CLS 

405 PRINT AT 10,0.” UOCE NAO 
CONSEGUIU DESARMARA BOMBA E EL 
A EXPLOD IU, CAU5 ANDO DANGS AO NAU 
10 . ” 

410 LET Z$=Z$+STR$ 1+"/” 

415 LET A4 ( I) ="0” 

420 LET 0=0 + 100* (1=4 OR 1=5) +66 

* (1 = 1) +21* (1=2 i +9* (1=3) 

425 LET B$ ( I) =‘EXPLODIU. . . ” 

430 GOSUB UAL ‘ 1000 ” +5* ( I =2 ) +10 

* (1 = 3) +15* (1=4) +20* (1=5) 

440 FOR J=1 TO 25 

445 NEXT J 

450 GOTO UAL "5100” 

500 CLS 

505 PRINT AT 10,0.” PARABEN5, 
UOCE DESATIUOU ABOMBA . CONTI 
NUE TENTANDO. ” ,Y$ 

510 LET u$=Q$+STP$ I+” , ” 

515 LET A$ (I) ="0” 

520 LET 0=0 + 10000* (1=3) +5000* >. I 
=2) +1500* (1=1) +1000* ( 1=4 OR 1=5) 
525 LET B$(I)="FOI DESARMADA.” 
535 IF INKEY $=" ” THEN GOTO 535 
540 CLS 

545 GOTO UAL '‘116” 

1000 LET C4(l) =” COMUNICACOES INT 
ERROMPIDAS ' 

1001 RETURN 

1005 LET C $ ( 2 ) = ' PANE NA HElICE P 
PINCIPAL” 

1006 RETURN 

1010 LET C$ ( 3 ) = " 0 NAUIO ESTA AFU 
NDAND.Q" 

1011 RETURN 

1015 LET C $ ( 4 ) = " HA FERID05 NA EN 
FERHARIA” 

1016 RETURN 

1020. LET C$ (5) =‘CONUES INTERDITA 
DO- 

1021 RETURN 
1050 CU5 
1052 FAST 

1054 GOSUB UAL ”1010” 

1055 RAND 

1065 PRINT ”»**»*****»* ****»»**+ 
************" ; AT 2 . 12 , nUDdofiki-fl 
•.AT 4,0, ” OS J0RNAI5 NOTICIAM 
0 AFUNDA-MENTO DO NAUIO ” ” BR ITA 
NIA”' DE 122MIL T0NELADA5 . DEU ID 
0 A ACAO DEGRUPOS TERRORISTAS . 
EQUIPES DEPE5GATE ESTAO NO LOC 
AL A PPOCUPADE P05SIUE IS 30BREUI 
UENTE5 . ” , , ,”******************** 
************” 

1070 GOTO UAL "1400" 

1300 CLS 
1305 FflST 

1310 LET 0=0 +9001+ INT (PND*2000< 
1315 IF B $ ( 1 , 1 ) O ” E ” AND 6$ (2,1* 
<>•'£“ AND B$ (3,1) < > ”E" AND B$'4, 
1) <>”E" AND B$ «5 , 1) < > ”E” THEN LE 
T 0=0 *45001+ INT (PND *10000' 

1390 PRINT " *************^***^^ 
************“, AT 2 . 12 , 

” : AT 4 , 0 ” ESPETACULAP 5ALU 

AMENTO DO' ' BRITANIA”” . COM ” , IN 
T iPND*5000) +1000: " PASSAGE IPO 5A 
BOPDO. 0 PEPITO. RESPONSAUELP 
ELO FEITO. ESTA RECEBENDO HON-P 
AS DE HERO I NO PORTO LOCAL.” 
******************************** 

1400 PRINT AT 18,0; Y$, AT 19,0, "0 
U '•”P”’ pppp RELATORIO." 

1405 SLOW 

1410 IF IN KEY $ = ' '• THEN GOTO 1410 
1415 IF INKEY $ < > ”R " THEN PUN 
1420 GOSUB UAL ”5000” 

1425 GOTO UAL ”1410” 

2000 PAND 

2001 LET A (0) *INT (RND*10) 

2005 LET C (0 ) =INT (P.ND*10) 

2010 IF C ( 0) =A (0) THEN GOTO UAL 
”2005” 

2015 LET D(Q)«INT (RND*10) 

2020 IF D (0) =C (0) OP D ( 0 ■ =A ( 0 ) T 
HEN GOTO UAL ”2015” 



2025 LE T G (0 ) =INT ( PND * 10 ) 

2030 IF G (Q) =D (0) OP G ( 0 • = C' ( 0 i 0 
P G ( 0 ) =A ( 0 1 THEN GOTO UAL ”2025" 
2035 i_ET H ( 0 ) =INT (PND + 10) 

2040 IF H ( 0 ) =G ( 0 ) OP H (0 ' = C (© 1 0 
P H • 0 ) =D 0 OP H(Q)=A(0) THEN GO 
TO UAl "2035 

2045 LET K(Q)=INT (P.ND*10 
2050 IF K ( 0 ) =H ( 0) OP K«0)=G(0) 0 
P K (0) =0(0' OP K ( 0 ) =C ( 0 ) OR K ( Q ) 
=A(0 THEN GOTO UAL "2045” 

2055 RETURN 

3000 PAND USP 16514 

3001 FAST 

3003 LET SU = INT (PND *0*1. 5' 

3010 CLS 

3015 LET P1=P1+UAL "1” 

3020 PRINT A T 2,0.” 0 INFC'PMA 

NTS QUEP SABER AOUANTIh QUE U 
OCE OFEPECE . AT 21.0; ”OBS. UOCE 
POSSUI U$ ” , 0 . ” 

3025 INPUT U t 

3026 IF CODE U*<28 OR CODE U*>37 
THEN GOTO '.'AL ”3025' 

3030 LET S I =UAL U$ 

3035 GOTO UAL ”3040” -15* • 51 0) +3 
0* (SU =51) 

3040 PRINT AT 6.0. ’OUE PENA...UO 
CE PEPDEU .51 DOL APES E NAO 0 

BTE'.’E A INFijPMACAO . ” 

3045 PRINT AT 21,0 y% 

3046 LET 0=0-51 

3047 5 LOU 

3050 IF INKEY % = ' " THEN GOTO UAl 
'3050 
3055 CLS 

3060 PAND USP 16531 
3065 RETURN 

3 0 _, 0 PRINT AT 6 0. 1 ELE ACE IT A 

E DIZ OUE 0 F 10 D (O' ”DA BOH 

BA OUE UOCE ESTA TPABA -LHANDO 
E UMA ARMADILHA. , AT 21,0; f * 

3071 ^ET 0=0-51 

3072 LET U = 1 

3073 SLOW 

3075 IF INKEy $=”” THEN GOTO UAL 
”3075” 

3080 CLS 

3035 PAND USP 16531 
3090 RETURN 
4000 CLS 

4005 PRINT AT 7.0,' E UMA PENA 
OUE UOCE tenhm DE -SI5T IDO . TEPE 
M05 DE PPOCUPAP UMOUTRC ESPECIA 
LISTA PAPA TENTAPP E5GATAP 0 ”" 
BPITANIA”” . ” 

4010 GOTO 1400 
4020 CLS 
4030 STOP 

5000 PAND USP 16514 
5005 CLS 
5010 LET M =M + 1 
5013 FAST 

5015 PRINT AT O .3. "RELATORIO N B ” 

, M 

5020 PRINT AT 2,0. "BOMBAS DE5APH 
ADAS - ”.G$ AT 4,0. "BOMBAS ExPlO 
DIDAS - " ; Z$, AT 6,0, "FIOS COPTAD 
OS - ' , P , AT 8 , 0 ' INFORMACOES SOL 

ICITADAS - ' ‘ , PI, AT 10,0. ' OUANT IA 
DI5P0NIUEL - U$ ,0 
5025 PRINT AT 12,0 ”0B5 ” 

5030 FOP J=UAL "1” TO UAL 5” 
5035 PRINT AT 12+J.UAL ”4”;”.”,C 
* ( J) 

5040 NEXT j 
5045 SLOW 

5050 PRINT AT 21,0; U$( TO 32) 

5053 IF INKEY $ " THEN GOTO 506 

0 

5054 LET U»=U*<2 TO )+U*< 1) 

5055 GOTO 5050 
5060 CLS 

5065 C-AND USP 16531 
5070 RETURN 

5100 PAND USP 16536 

5101 FOP J=1 TO 25 

5102 NEXT J 

5105 IF I=UAL ”1" THEN PRINT AT 
14 , 18; *•>*”; AT 12 . 19. ”■ 1 ” . AT 13,1 
9.” A", AT 12, 19, ”1 /” , AT 14,18,'. 
“ ; AT 15 , 19 , | ' 

5110 IF I=UAL ”2” THEN PRINT AT 
17 ,23, ‘V”, AT 18.26. ”*■”. AT 18,2 

4 , ” J* ' , AT 17,23, AT 17,25,". 

” ; AT 18,22; ” <“ 

5115 IF I=UAL ”3” THEN PRINT AT 
18, 13, "/VW- ■ «T 12,14,"* ” , AT 13 
, 14. ”■■■*" . AT 14, 14, , AT 18,7, 

” / ” ; AT 19 , 7 ; " k" 

5120 IF I=UAL 4” THEN PRINT AT 
13,11, "J; AT 12.11; , AT 11.12, 
•V” , AT 12,10,” ” , AT 11,9.”*”, AT 
13,9- 'V° 

5125 IF I =UAL 5” THEN PRINT AT 

13,25, 'V. AT 13,23, ”*”, AT 12,25, 

" /•" , AT 15 ,24, "■+ ' , AT 14 , 23, "M " 

5130 PAND USR 16519 

5135 FOP U = 1 TO 25 

5140 NEXT J 

5145 CLS 

5150 GOTO UAL 115" 

5200 5AUE "BOMBS” 

5205 PUN 






Este jogo e uma versHo, para a linha 
IKS C olor, do jogo Bomba (ZX8 1 ), pu- 
blicado nesta edifSo. Para saber como 

0 jogo funciona, tome como base o 
texto para a linha ZX81. Entretanto, 

1 importante estar atento a um detalhe: 
nos micros da linha Color, deve-se te- 
clar S para entrar em contato com o in- 
form ante, e n5o A, como indicado no 
outro programs. 

Para gravar o programs em fita, digite- 
o normalmente. J i, para gravi-lo em dis- 
co, tern que se eliminar as instru^Oes 
POKE 65495,0 e POKE 65494.0 nas 



linhas 110 e 1090, respectivamente, 
pois o BASIC-disco n8o aceita tal ins- 
trufSo. 

Ao rodar o programs, voce ter3 o 
quadro com os fios da bomba e um 
alicate. Para escolher o Ho a ser corta- 
do, movimente o alicate na dire^ao 
vertical com as teclas-setas (‘ t ' e 
‘ | ’). colocando o mesmo na linha ho- 
rizontal dofio. Paracortar, tecle ‘ *- 

Ao iniciar o jogo, voc t tern cinco 
minutos para desarmar todas as bombas, 
salvando assim o navio; caso contrano, 
se restar uma bomba, mesmo que seja 



t re- color tre-color tre-color tre-col 



Bomba 



de pequeno estrago, a embarca(9o irA a 
pique. Esse tempo 6 conseguido com 
exata precisto atravds da fun^So TIMER. 

Para a execuflo do programs, digite 
CLOAD; para carregar, PCLEAR8 e 
RUN. 



Hanto da Arau/o Baiarra 4 attudanta da En- 
ganharia Elitrica na UFRN. t ratal ha no Sat or 
da ComputapEo da uma amprata da conttru- 
(Bat a potaui um Color 64. 

Jodrian Soar at Amorim da Fra ft at 4 autodida- 
ta am computafto. attuda Enganharia Qu /mi- 
ca a potaui um TK86. 



10 ' 

20 ’ a BOMBA a 

30 ■ a VERS AO - TRS COLOR a 

40 ’ * COLOR 64 • 

SO ’a HEN 10 BE ZEBRA a 

60 ' aaaaaaaaaaaaaaaaaaaaaaaaaaaa 

70 GOT 0200 

80 COLOR 1 :L INE ( 166, F IO* l4+12)-<2 
32, FI 0*1 4+48) .PSET.BF: RETURN 
VO IF FIO-IO THEN FI0-0:ELSE IF 
FIO— 1 THEN FIO-9 
100 RETURN 

110 LINE < 184 , B4 > - ( 192, 104) , PSET, 
BF: CIRCLE <174, 92) , 161 PAINT < 166, 1 
00) ,5,5:DRAW"C06M1BB, 104E10H2E8M 
-2, 12G8L6":PAINT< 194, 100) ,0,0! ZY 
4«"FUMACA NO SAL AO DE J0G0B":RET 
URN 

120 DIM D2 < 4 ) 1 GET <63, ISO) - (81 , IS 
8) ,02, G: LINE <63, 150) - <81, 138) , PS 
ET,BF:ZY*="PANE NA CASA DAS MAQU 
INAS":F0RH=1T06SPUT (B-H+63, 130-4 
•H)-<B*H+81, 138-4*H) ,D2,PSET:FOR 
I-1T010:NEXT 

130 IF H=6 THEN RETURN: ELSE LINE 
<B*H+63, 1 50—4 *H ) - <B*H+8I , 13B-4*H 
) .PSET.BF: NEXT: RE TURN 
140 LINE < 120, 160) — <144, 160) , PSET 
:F0RH=145TO159:l1NE < 141 ,H)-< 191* 
139-H,H),PSET:L1NE<130. 160) - < 140 
, 168) .PSET.BF: CIRCLE <132, 160) .4. 
0, 1,0, .25: CIRCLE <140, 168) , 4,0, 1. 
.5, . 75: I—RND < 40 ) +3: LINE < 132-1 , H+ 
23) -< 132+1, H+2S) ,PRESET:LINE< 140 
, 160) -<132, 168) .PRESET 
1 30 FOR I = 1 T020: NE X T I . H: FORM- 1 T05 

oo:next:zv*-"o navio esta* afund 

ANDO" : RETURN 

160 LINE<88.82)-<104, 92) .PSET.BF 
: DRAWC0BM88.90IM + 14,61 M+3, -6IH- 
1 7, -6<D6“: PAINT <100,92) ,0,0:ZY4- 
"HA FERIDOS NA ENFERMARI A" : RETUR 



N 

170 L1NE<224, I12I-I 184, 108) , PSET 
: LINE- <200, 104) .PSET: PAINT <220, 1 
08) ,5,5: Zva-"ESTRAGOS NO CONVES" 
: RETURN 

180 DATA 81,83,82,80.81,83,82,80 
,83,80.80,83,80,83,83.80,80,81,8 
2, 80, 85, 80, 83, 80, 8A, 80, 85, 80, 8E, 
88,87,80,80, BA, 80, BA, 81, 88, 84, 82 
. 85, 8C. 89, BO. SA, BO, 83, BO, 8A. 84, 8 
8, 85, 80, 8E , 8C, 82, 83, 83, 83, 8A, 85, 
80, 85, 80, 8A, 80, 83, 80, 8A, 80, 80, 85 
, 80, BA, 80, 8A, 83, 80, 80, 8A 
190 DATA 83, 83, B6, 80, 89, 83, 86, 80 
, 8A, 80, 80, 83, 80, BB, 83, 88, 83, 80, B 
0, BA, 08, 03, OE, 09, OF, 80, 02, 05, 1A, 
05,12, 12,01, "TERROR I ST A ESPALHOU 
", "BOMBAS VG NAVIO", "britania PT 
" , "VOCE VG ESPECIAL I STA", "FORMAD 
0 CURSO", "ENGENHARIA BELICA ufrn 
VG", "CONVIDADO MISSAO PT 
200 CL SO: POFE63493, 0: PCLEAR8: FOR 
H-I138 TX3 1286 STEP32: FORJ-H TO 
H+-19:READia:POKEJ,VAL<"*H" + ia> :N 
EXT: NEXT: FORM- 1T0300:NEXT:FORH=1 
422 TO 1434:READIt:P0KEH, VAL <’6H 

■+ia) : next: form- i roeoo : next 

210 CLS:PRINT83B5, STRINGS <30, 45) 
:print«417, "*":print8446. “*":for 
P— 1 T07 : RE ADP4 : PR I NT 8478 , :PRI 
NT8449, ••* " | : FORM- 1 TO LEN<P*):P 
RINTMI D4 <P*,H, 1) | : PLAY"V29L25501 
AB":F0RI«1T010:NEXTI ,H:PRINT8511 
, " "S :NEXTP:PRINT«449. STRING4<30 
, "-") 

220 T I MER-O: DIM B <3, 3) , NU4 <4 > , NA 
<5) ,M4 <5) , A<80) ,C<80) : F’MODE 4,1: 
PCLS5 : COLORO : DRAM " BM I 6 , II 2R20U28 
R 1 2U 1 6E20I D36R4U4E8D 1 2 I R24D6L 1 6D 
8R28U 10IR16D1 0R40D6R 1 6U8 I BH4U8BF 
8D 1 2R32D8I R 1 6G48L 1 28H48" : FOR I -IT 
05:na<i>-3:next 



230 TURI -G0T0104STEPB: FORJ— 40T06 
4STEP8:L1NE < J, I ) - < J+4, 1+4) , PSET, 
B: NEXT: NEXT: LINE <72, 100)- <84, 112 
) . PSE T . b : F UR I - 1 02T0 l 08STEP6 : FOR J 
-92 I0108STEP4: LINE <J, I)-<J+4, 1+4 
),PSET,B:NEXTJ, I:F0RI-92T010OSTE 
P4:F0RJ-120T0124STEP4:L1NE(J, I ) - 
<J+4, 1+4 ) .PSET, b:nextj, 1 
240 FORJ-1 32T0136STEP12: LINE < J, 1 
04)- <J+8, 108) .PSET, B: LINE! J+4, 10 
4)-<J+B, 108), PSET, B:NEXT:F0RJ-4B 
T0144STEP 16: CIRCLE <J, 124) , 4: CIRC 
LE<J+8, 136) .4: NEXT: CIRCLE <184, 13 
6) ,4; CIRCLE < 168, 136) ,4: LINE <72, 8 
8)- <76, 92) , PSET, B: LINE <80, 88)- <8 
4,92) , PSET, &:R4-"NA0" 

230 T"T IMER! CIRCLE (184,96) ,4,0, l 
. . 73! CIRCLE <184, 92) ,8,0, 1, .73: PA 
INI < 124, 1 12) ,0,0: DRAWC5BM157, 12 
1 D1 G 1 1 NL3F 1 D2GIL3U7 1 BR8R3F 1 D 
1G1NL3IF 1D3BL4U7BRIONL1 INR1D7NR1 
L 1 BU7| BR7R4BL2D7BR6U3I NR4U2E2F2D 
SBR41U/BDIF4BD2U7BR61NL1NR1D7NL1 
R 1 BR3 1 U3NR4U2E 2F2D3" 

260 nd-o:ne-o:r-o:clso:pofei36,3 

:F0* E 1 37, 0: 60UND200, 2: PRINTTAB < 1 
O) I "ATENCAO 1 • •":F0RM=lTO3OO:NEX 
T:S0UND223.4:PRINTTA6<6> t "ESOOEM 
AS DAS BOMBAS: FORM- 1T0600: NEXT 

:soundi4o,2:print,,tab<ii>" ente 

R>* 

270 IF INI EY6 CHR4<13) THEN270: 
ELSE PMUDE 4,5: PCLS5 : FOR I = 1 T04 : PC 
OPY 1 TO < I + 4 ) : NEXT : PM0DE4 , 1 : SCR 
EEN1 , 1 : FORJ-1 TO T/4: I^RND (-TIMER 
) : NE X T : D-RND < 300 ) : PMQDE4 , 5 : DRAW " 
BM18, 1 1 3R220G30I L69D16L74H46" : CO 
loro: LINE <140, 122) — < 220, 122), PSE 
T 1PAINT < 1 32, 1 14) ,5,3 
280 PAINT < 138, 126) ,3,3: DRAWBM32 
, 1 23R19ZBG! 6L 1 44U16" : FORJ— 40T016 
8STEP16:L1NE <J, 1 12) -<J, 128) .PSET 
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:LINE(J+40, 128) -(J+40, 144) , PSET: 
NEXT290 DRAW "Bit 172, 1 28U2R4U6R8U4 
: R4D8R81J4R4U2 5 R8D6R4U4R4U4 S RBD1 2 
PAINT (200, 127) , 0, 0: DRAW"BM56, 1 
52U10R7D6R21D8; R32D4BM84 , 158R30D 
4L55NU3D3" :F0RJ=92T01 12STEP4: LIN 
E(J, 152) -<J, 156) , F'SET: NEXT: LINE) 
69, 156) (84, 158) , PSE i , BF: L INE (88 

, 148) -(116, 152) , PSET, BF 
300 CIRCLE(66, 154) , 2: CIRCLE ( 78, 1 
54) , 2: LINE (66, 152)-(78, 152) , PSET 
: NU* ( 4 > = " BM 1 66 , i 02E2D6NL 1 R 1 " : NIJ* 
< 3 ) = " BM54 , 1 36UERFD2G3R3 " : NU* ( 2) = 
"BM132, 150UR4G2RFD2GL2HU" : NU* ( 1 ) 
= "81-180, 107L4E2DED6":NU* <0>="BM23 
6, 102L4D2R2FD2GL2HU" 

310 FOR H— 0 TO 3: DRAW NU*(H):NEX 
T : DRAW " C5 " + NU* ( 4 > : SCREEN 1 , 1 : FOR 
H=1 TO 3500: NEXT: PM0DE4. 1: SCREEN 

i,i:for h= i to looo: next: cls: scr 

EEN0,0:F0R H=1 to 4:PC0PY (H+4) 
TO H:NEXT 

320 CLS: P0KE137, 67: INFTJT"DIGA QU 
AL A BOMBA QUE VOCE QUER CO 

MECAR 11 ; N* : N=VAL ( N* ) : IF N< 1 OR N) 
5 THEN PRINT0197, "NUMERO INEXIST 

ente“:forh=ito400:next:goto320:e 

LSE PRINT,, 1 ' APARTIR DE AGORA V 
OCE TEM",'' 5 MIN PARA DESARMAR 

AS" ," BOMBAS." 

330 F0RH=0T05: F0RJ=1T03STEP2 
340 B(J,H)=RND(10)-1: IF H< >0 THE 
N FORI-OTOH-l: IF B ( J , H> =B < J , I > T 
HEN340: ELSE NEXT 

350 B(J+1,H)=B(J,H> :B(5,H)=B(3,H 
) :NEXTJ,H:PM0DE3,5:PCLS 
360 DRAW " C3BM 192,1 56M-24 , -4M+ 1 6 
, -4R 1 6 ; EBNM+4 , BR40F464L36 ; G8FBR3 
6F4G4L40; NM+4, -8H8L16M-16, -4M+24 
, -4; BM166, 104M+16, -6M+ 1 6, -21 M+10 
, -6NM+2, 8M+40, 4M+2, 4M-2, +4M-38, - 
4; M- 10, 6M+10, 6M+38, -4M+2, 4M-2, 4M 
-40, 4NM+2.-B; M-10, -6M-16, -2M-16, 
-6" 

370 PAINT (206, 148) , 3, 3: PAINT (220 
, 144) ,2,3: PAINT (220, 168) ,2, 3-.PAI 
NT (196, 104) ,3, 3: PAINT (224, 96> ,2, 
3: PAINT (224, 112) , 2, 3: GET ( 166, 13B 
) — (252, 174) , A, G: GET (166, 88) -(252 
, 120) , C, G: TIMER=0 

380 PM0DE3, 5: PCLS: C0L0R4 : LINE ( 16 
, 16) -(124, 170) , F'SET , BF : DRAW " C2BM 
135, 34U8ER3F 1 5 DBGL3" : L I NE ( 1 39 , 40 
)-( 139, 49) ,PSET:DRAW"BM134,55U1E 
1 R4F 1 D4 ; M-5 , 3D2R6BM - 6 , 4R5D3 1 G 1 NL 
3F 1D4G1L3: HI U3BM+5 , 8ND 1 OL 1 D2 ; L3D 
4NR3H1D2R4 ; BM+ 1 , 7L5D4R4F1D4; G1L3 
H1U2" 

390 DRAW "BM+6, 8U 1H1L4G1 D8; F 1 R3E1 
U3H1L3? BM-1 , 9NR6D 1 R6D4L2 1 D2L2D3B 
M— 1 , 8H 1 U2 ; E 1 R3F 1 D2G 1 NL3 ; F 1 D4G 1 L3 
H1U4SBM+0, 1 6D2F 1 R3E 1 U8 ; H 1 L3G 1 D2F 
1 R3 " : SCREEN 1,0: FQRH= 1 T0500: NEXT: 
C0L0R2: LINE ( 20, 20) - < 120, 166) , PSE 
T , B : P A I NT (68, 21), 2, 2: COLOR 4 
400 F0RH=30T0 156STEP1 4: LINE (28, H 

) - ( 1 12, H) , pset : next: f io=9: cf*=" 11 
410 PUT ( 166, FIO* 14+12) -(252, FIO* 
14+48) , A, PSET 

420 IF TIMER >=18000 THEN710: ELSE 
P1=PEEK(341) :P2=PEEK<342) : IF PI 
=247 OR P2=247 G0SUB80 : F 1 0=F 1 0+ ( 
Pl=247)- (P2=247) : G0SUB90: G0T04 1 0 
; ELSE TE*=INKEY*: IF TE*="R" THEN 
560: ELSE IF TE*="S" THEN600: ELSE 
IF TE*="D" THEN650: ELSE IF TE*< 
>CHR*<8) THEN420 

430 FOR H=1 TO LEN(CF*):IF STR* ( 
F I 0 ) =M I D* ( CF* , H , 2 ) THEN420 : ELSE 
NEXT: PUT (1 66. F 10*1 4+12) - (252, FIO 
* 1 4+48 ) , C , F'SET : C0L0R2 : D=RND ( 64 ) + 
32: LINE (D, FIO* 14+30) -(D+ 12, F 10*1 
4+30) , PSET : CIRCLE ( D, F' 10* 1 4 + 36) ,8 
,4, .75, . 75: CIRCLE (D+ 12, FIO* 14 +24 
) ,8, 4, .75, .25, .5 

440 CF*=CF*+STR* (FIO) : PUT (166. FI 



Bomba 



0*14+12) - <252, F 10*14+48) , A, PSET: 
FOR NF=0 TO 5: IF B(N,NF)OFIO TH 
EN NEXT: 0=0+35: G0T0420: ELSE ON N 
F + l G0T0450, 450, 450, 670,670,770 
450 0=0+200 : NA ( N ) =NA <N> — 1:IF NA < 
N) >0 THEN420’:ELSE IF N=3 THEN Q= 
Q+10000:ELSE IF N=2 THEN 0=0+700 
0: ELSE IF N=1 THEN Q=Q+4000: ELSE 
0=0+3000 

460 Q=0+RND(500> : C*=C*+STR* <N> :C 
D*=CD*+STR* (N) : ND=ND+1 : IF TIMER? 
=18000 THEN420: ELSE IF ND+NE=5 T 
HEN T=T IMER/3600: G0T0530 : ELSE CL 
S: F'RINT, , " VOCE CONSEGUIU DESARM 
AR",," A BOMBA"N: FQRH=1 TQ500: NEX 
T:CLS 

470 PRINT,," F'ARABENS, CONTINUE 
TENT ANDO"," MAS ANTES DIGA:":PMO 
DE4, 1 : SCREEN 1, 1: IF N=1 THEN P*=" 
CO": ELSE P*="C5" 

480 F0RH=1T05:DRAW"C5"+NU*(5-N> : 
F0RI=1T0100: NEXT: DRAW"CO"+NU* (5- 
N) : FORI = 1T0100: NEXT I , III DRAWP*+NU 
*(5-N) :F0RH=1T0300:NEXT 
490 Q*="H": INPUT" DUAL A FROXIMA 
BOMBA" ; N*: IF N*="R" THEN N=0:G0 
SIJB560: ELSE IF N*="D" THEN :N=0: 
G0SUB650: ELSE N=VAL (N*) 

500 Q*="":IF N< 1 OR N>5 THEN 490 
ELSE FOR H=1 TO LEN(C*):IF VAL < 
MID*(C*,H,2)>=N THEN PRINT,,' 1 BO 
MBA JA’ TRABALHADA":FOR H=1 TO 5 

oo:next:pmode 4,1 : screen 1,1 : for 

H=1 TO 900 : NEXT : ELSE NEXT:G0T03 
80 

510 IF N=1 THEN P*="CO" : ELSE P*= 
"05" 

520 CLS:80T0480 

fe30 IF ND=5 THEN 0=Q+64000+RND < 1 
2000 ) : ELSE Q=Q+ 1 9000+RND < 2000 ) 
540 CLS : PRINTTAB (10) "F'ARABENS 1 1 
VOCE CONSEGUIU SALVAR 0 
BRITAN I A DO NAUFRAG 1 0 EM' 1 , 11 
11 ; : PRINT USING"## MIN E "iFIX(T) 
SIPRINT USING' 1 ## SEG, ";FIX((T-F 

I X (T) ) *60) 1 :F'RINT"SENDO CHAMADO' 1 
," PARA TRABALHAR NO SERVICQ", 11 
DE SEGURANCA NAC IONAL. " , , , 

550 PRINT" BOMBAS DESARMADAS" ; CD 
*," BOMBAS EXPLOD I DAS" 5 CE*. " QUA 
NTI A DISPONIVEL U*" ; Q: G0T0B30 
560 CLS: R=R+1 : PRINTTAB <9 ) ; "RELAT 
OR 10 N@";R:PRINT, , " TEMPO: 11 ,,' 1 B 
OMBAS DESARMADAS: "!CD*," BOMBAS 

EXPLODIDAS: "iCE*,” QUANTIA DIS 
PONIVEL: U*";Q," SUBORNO - "SR* 
570 PRINT,, 11 OBSERVACOEB: 11 : FOR H 
= 1 TO 5: PRINT" *" S M* <H) : NEXT: IF 
0*='^" THEN RETURN 
580 PRINT, , TAB ( 1 1 > “/.ENTER?" 5 
590 A*= INKEY*: T=T IMER/3600: IF T> 
=5 THEN420: ELSE PR I NT @71 .USING"# 
# MIN"SFIX <T) ; : PRINT" E "5:PRINT 
USING' 1 ## SEG" S FIX ( (T-FIX < T) ) *60 
) : IF A*< >CHR* (13) THEN590: ELSE C 
LS: GOT 0640 

600 IF R*="SIM" THEN CLS:PRINT,, 

II SUBORNO JA’ UTILIZAD0":F0RH=1T 
0800: NEXT: G0T0640: ELSE QP=RND (Q> 
*1 . 5+10: CLS: F'RINT@417, "QUANTIA D 
ISPONIVEL: "Q: PRINT033, "0 INFORMA 
NTE PERGUNTA: 11 

610 INPUT" QUANTIA OFERECIDA" ) QO 
:IF Q0>0 THEN PRINT,,"NAO DEVE S 
ER MAIS DO QUE” j Q: G0T0610: ELSE I 
F QO<QP THEN PRINT,, 11 O INFORMAN 
TE NAO ACEITA"," VOCE F'ERDEU U*" 
QO : FORH= 1 T0800 : NEX T : GOT0630 
620 PRINT,, 11 0 INFORMANTE ACEITA 
E DIZ QUE", 11 0 FI0")B(N,RND(2>+ 
2) ; "E’ UM FIO ARMADI LHA 11 : R*= '"SIM 
11 : FORH= 1 TO 1 000 : I F INKEY*< >" " THE 
N H= 1000: ELSE NEXT 
630 Q=Q-QO 

640 IF Q*="H" THEN RETURN ELSE P 
MODE 3, 5: SCREEN 1,0:G0T0420 



650 CLS: PR I NT,," VOCE QUER MESMO 
DESISTIR? (S/N)' 1 

660 K*=INKEY*: IF TIMER >=18000 TH 
EN420: ELSE IF K*="N" THEN640: ELS 
E IF K*<>”S" THEN660: ELSE PRINT, 

, 11 QUE PENA, FALTAVAM ARENAS", 5- 
(NE+ND) ; "BOMBAS", , " SEU TEMPO ER 
A DE: 11 : T=T IMER/3600: PRINT USING" 
# MIN E " S FI X (T ) S : PRINTUSING"## 
SEG" S FI X < (T-FIX (T) ) *60) :GOTO 
670 NE=NE+1 :CE*=CE*+STR* <N) : C*=C 
*+STR* <N) :Q=Q-497* (N=l ) -321* (N=2 
)-109*(N=3> -755* (N=4 OR N=5):F0R 
H=1 TO 20: FOR Hl = l TO H*5:NEXT: 
S=0*(S=1 >- (S=0) : SCFfEEN 1 ,S:PLAY'‘ 
01SL60S V31 ;C":NEXT:PM0DE4, 1 : SURE 
EN1 , 1 : FORH=lTOtOOO: NEXT : IF N=1 T 
HEN P* = "CO' 1 : ELSE P*="C5" 

680 DRAW F'*+NU*(5- N) : COLORS: ON N 
GOSUB 1 10, 120, 140, 160, 170: M* (N) 
=ZY*: FQRH=1T03500: NEXT : IF N=3 TH 
EN Q=Q+9:G0T0710:EL.SE IF N=2 THE 
N Q=Q+21:ELSE IF N=1 THEN Q=Q+66 
: ELSE Q=Q+100 

690 IF INSTRtCE*, "2") >0 AND NE 1 
=2 THEN710 

700 IF NE<3 THEN CLS: PRINT, , 11 VO 
CE NAO CONSEGUIU DESARMAR"," A B 
OMBA" S NS “ELA EXF'LODIU, 11 , " CAUSAN 
DO DANOS AO NAVIO. . . " : F0RH=1T012 
00 : NEXT : CLS : GOT0490 
710 M*(3)="0 NAVIO ESTA AFUNDAND 
0 " : POKE 654 94 , 0 : CLS : PR I NT @ 1 , STR I N 
G* <30, “*") ; : PRINT043, "URGENTE ! 1 
! " ; :PRINT@33, "*" ; :PRINT962, "*"; : 
F'RINT@65, STR I NG* (30, "*") 

720 PRINT,, 1 ' NAUFRAGA RECENTEM 
ENTE D“," TR ANSATL ANT ICO "BRITAN 
I A ' " , " PESANDO " ; 1 OO+RND ( 500 ) ; " TO 
NELADAS, "," DEVIDO A ACAO DE TER 
RORISTAS", , , " BUSCAS JA’ ESTAO S 
ENDO FE I-" , " TAS NO LOCAL,"," AT 
E’ AGORA"," NAO HA’ SOBREVIVEN 
TES. . . ":Q*="F":T=TIMER/3600 
730 FOR H=1 TO 3000: NEXT: GOSUB 5 
60:PRINT@71 .USING"## MIN E "SFIX 

(T>;:print using 11 ## seg";fix((t- 

FIX (T) ) *60) 

740 PLAY"02! V31 ; L6; D; P20S Ds P205 L 
20; Di P70J L4 ; D; P15" 

750 PL A Y " L6 ! F ! P20 ; L20 i E 1 P70 1 L6 5 E 
; P20; L20; D; P70; L6; D; L20; P20; C#; P 
70; L4; D" 

760 GOTO 830 

770 DRAW "C3BM1B, 179U1H1L3G1 ; D8F1 
R3E1U1 BM+9, 1 ; F 1R3E1UBH1L3; G1D8BM 
+ 14, 1U10F t D3$ R3D3R1 ND3U7BM+7 , 7 1 D 
2F1R4E1U9NL4; R1BM+9, 0D9F1R3E1 ;U9 

7 BO DRAW " BM+ 14, 2U1 HI L3G1 D8F 1 R3E 1 
; U2L2BM+ 1 1 , 3U9E 1 R3F 1 D4NL5D5; BM+1 
0, 0L1U10R2F1R1 ; F 1D6G1BM + 14 , 1L3H1 
USE 1 R3 ; F 1 D8BM+9, 1 U 1 0R4F 1 D3? G 1 L2D 
1 F4 11 790 Q=Q+7 : NB=-2* < N= 1 ) - ( N=2 ) - 
3* <N=4) —4* (N=3> -3* <N=5> : FOR F=0 
TO 5 

800 B <NB, F) =RND < 10) -1 : IF F»0 THE 
N 810 ELSE FOR H=0 TO F - 1 : IF B(N 
B, F) =B < NB , H) THEN 800 ELSE NEXT 
810 NEXT: IF N<3 THEN 420 ELSE IF 
NOS THEN FOR F=0 TO 5:B(5,F)=B 
< NB , F ) : NE X T : ELSE FOR F=0 TO 5:B< 
4,F)=B(3,F) :NEXT 
820 GOTO 420 
830 PRINT046O, " CENTER > 11 J 
840 TE*=INKEY»: IF TE*< >CHR* ( 13) 
THEN 840 ELSE CLS 
850 PRINT0234, "OUTRA (S/N)? 11 
860 TE*= INKEY*: IF TE*="N" THEN E 
ND ELSE IF TE*< >"S" THEN 860 ELS 
E R0KE1271 ,19: PRINT, , 11 ESPERE UM 
MOMENTO. " : P0KE65495, 0: RUN220 
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Caverna dos diamantes 

Cristiano Te/les Ribeiro 



Neste jogo. desenvolvido em um 
DGT - 100, voce e um explorador que 
descobriu uma caverna de perolas e dia- 
mantes habitada por um pengoso micros- 
sauro e formada por um conjunto de 
subcavernas na forma de labirinto. 

Seu objetivo 6 pegar o maior mimero 
de perolas e diamantes possivel e tentar 
escapar da implacdvel perseguiijao do 
microssauro. 

Depois de um certo tempo exploran- 
do as riquezas do labirinto, abre-se uma 
saida num dos quatro cantos da caverna. 
Assim, se voce conseguir chegar a esta 
saida, podera passar para o proximo ni- 
vel, onde descobrira mats diamantes e 
encontrara o microssauro ainda mais 
funoso. 




O jogo tern um certo grau de dificul- 
dade, pois exige do leitor habilidade 
com o teclado, para mover-se; racioci- 
nio ripido, para evitar que o microssau- 
ro pegue o explorador; e uma boa dose 
de sortel 

Vale a pena digitar a listagem, ape- 



sar de um pouco grande, pois ela possui 
uma bonita apresenta^ao e agradaveis 

efeitos sonoros- visuals. 



Cristiano T. Ribeiro programs em linguagem 
BASIC a pouui um DGT- 100 h4 doit anot. 
Ele ainda detanvolve jogos e programas educe 
tivot. 



10 CLlAR1000iI)t I INI A / «D l MX 050) 

20 Bl< 1 > I'CMNK 169>+CHR*< 1/31+CHRK 129) tBl(?)-CMRl< 153) ♦ TURK 141) ♦ CHRK 1 4!.) 

00 US ’ 4 //////////////////////” 3 r 22 BARRA'i 

40 /A VARPTRt 771) I7B-HEEK<ZAM ) ♦PEEK ( ZA + 2 ) *256iDEF USH-/U 
50 FORI-ZBTOZB *21 «/T t * If 7T >32767THfcNZ WT 65535 
60 RE ADR xPOKI 7 I .R INI XT 1 

70 DATA205. 12/. 10. 76,69.62.1,21 1,255, 16,254 .6 V. 62. 16.211 .255. 16,254.13.32,239.20 

1 

80 0*1 «M- 15360 IRC 1 > RND < 500 )♦ 500 : Bit 1 ) -**TI T I ~ 

90 GOSUB 7101 OOliUB VV0 I R Y1 < 1 > »*RE T ,«•!'' s R Yl i 2 > ( MR % t » VII) iMK 1 ) -~CLE AR ~ I R X* ( 2 ) *CHR% 
< 197) xRMK 1 )-CHR%( 166) l R Ml < 2 > « CHR 1 < 153) 

100 S%«STRIMGt<57. 19ft >tP*«~ ~+CHRl< 1 40 > ♦" " I f %-S 1 R I NOl (3 . 1 91 > 

110 FORI-1 T0l9»(ll-01«P1«NE XT 

120 MIC 1 )-CHR%< 1 79 )•( HK»< 140) ♦CHRK 179 ) : Ml ( 2 ) - CMBS ( I 40 ) ♦CHRt ( 1 79 ) ♦ CHRl < 1 40) 

130 C»«~ ~ x 1 1 • CHRK 191 ) +CMRK 179 > ♦ CHRK 1 V 1 ) 

140 0(1 )-67l0(? )-l71 i0< 3 >“963X0(4 ) 101/ 

150 SS"USR ( 23000 • l lib **tJ8R (23000 ) «SS»USR<3214/) if OR | -1 TO300XNE XT 
160 GOSUB5H0 

170 C»C+UfORJ ■■ 1 101 6* PR l NT stiS-USR < 6000 * I«:o«NI XT18O8UB690 

1 HO PRINTM4/0," l A 0 E R N A "?Cp" "p 

190 FOR 1 * 1 10350 i X < I ) •■ 0 » 8B»»U8R < 255+ 1 «2 ) I NEXT « F OR 1 - 1 T 0300 1 Nt XT 
200 CL8 a IJ " 0 10" 0 

210 FORI "64TO9608 TEP64 I PR INI a) I , Flp9I+60,Flr *Nf XT 

220 F OR I “67 1 0.9638 Tl P128IPR INT9I ,Slp x IF I < 963PH I M T «0 I *64 , G! p i Nl X TELSENE X T 

230 FOR 1 *1921 00V28TEP12H t PR l N T ill »RND( 5 ) "3 , PI » tl I * IB • RN()( 5 > «3. P! » 91 +39+RND< 6 ) *3 , PI 

p XNEXT 

240 F OR 1*256 1 076H8 TEP 1 2H 

250 0*1 *6 + RN0 (8)*3xIFPELK(D + H 64 ) - 1 9! ANDPEtK <0 + H*64)*- 1 V 1 PR I N T 00 . F 1 p ELSE GOT 0250 
260 E“ I +33 + RNO < 6 ) • 3 1 IF PI I.K < E *H- 64 ) » 1 9 1 ANDPFFK < C +H + 64 ) • 1 9 1 PR I NT 9E . Fl >ELSEGOTO260 
270 NEXT 
280 F 0RJ-1T0C 

290 X»1 *RND< 1 V)«3ir-RND< 12)* 1 X I FPEEK ( H + X ♦ T «64 ) • 1 40PR INI 0X + T«64 . "•"» ISS*USR ( 1 0000 
)ELSt GOTO290 
300 NEXT 

310 P R I N T 90 . " P ON T 08 • ** » 7 p 9 ! 7 , " • CAOf RNA DOS DIAMANTES ■" »852 . "TEMPO! ~ p 350 | 

320 V«RND(4) XB-O(V) I If V>28^ r.4LLSES 64 

330 PRINT9B.BK 1 ) | » BB-USR < 6350 ) XGOSUB680 : B-R + B 1 PR 1NT9B . ■ % < 2 ) » 88 S.Clp XSS-UBR <65/ 



« CAVERNA DOS DIAMANTES • 
PONTOS: 46 
TEMPO: 295 






•Aleph Slstemas 
e Metodos 
•Andraus 
Informatica 
• Ciencia Moderna 
Computacao 
> Compumix 



Os melhore5e5peclall5ta5, programas, 
equipament05, formularios, manutenqao, 
cursos, livraria, videoclube Tudo para Informatica, 
com seguranca e garantia, num so lugar 

a .a. 





0 1. 0 Shopping de Informatica do Brasil. 






•Computer Shopping 
Moore 

• Computerware 
•CRT 

• Data Ribbon 

• Flamengo Video Club 

• "Mikros 



■ Raclmec 
> R&T Informatica 
•Trade Informatica 
•Uni tel 

• Videomatica 



\nfop w ' 



\y0w- 



no Largo do Machado, junto ao Metro. Aberto de 2.* a sabado. E5TACXX1AMEHT0 PROPRK). 







0)*GOSUB680xPRINT«)B-S,STRINGS(3,i9i ) ;8B ,B$< i) t 
340 FORI-6550TO6500STEP-53GOSUB470 
350 PRINT 3B , BS ( 0 ) ; a SS=USR < I > aNEXT 
360 O®ixX<0)=i4aV»RND(4 > xm=B+H 

370 P*PEEK < 14400) a IFB-X ( U > THEN500ELSEIFP >0PR INT88 ,CSaELSE400 

380 IFP«32ANDPEEK(M-i ) < > 191B=B-3ELSEIFP»64ANDPEEK < M+4 > < > 191B-B+3EL5EIFP-8ANDPEEK 
(M-64X >i918=B-64ELSEIFP»16ANDPEEK (M+64X >19iB*B+64 
390 M-B+HiT-PEEK(M+l ) x IFB»X < U ) THEN500ELSEIFT >32GOSUB450 

400 IFB m Q<V)THEN550ELSEPRINTaB,8S<O> t :G=G + i a PR INT358 , 350-G ; a IFG=350THEN550ELSEOO 
SUB470 

410 IFG»KGOSUB540 

420 X(G)®BHFG>LTHEN430ELSEFORI»1TO25:NEXT 8GOTO370 

430 U-U+1«IFX<U)-X<U“1 )THEN430 

440 PR I NT3X < U • 1 ) , CS ; 3X < U ) , MS ( 0 ) t :GOTO370 

450 IFT=140Z=Z+1 JSS=USR( 1950 ) ELSEIF T = 42Z = Z+50 aGOSUB490 

460 PR I NTSI7 , Z ; x RETURN 

470 IF0*10~2ELSEO'=l 

4B0 RETURN 

490 PR INT3B , STRINGS <3, 191 > p a F OR I =99957 0 1 0000 : SS=USR ( I ) : NEXT : PR INT i)B r C$ ; : RETURN 
500 FOR I=80TO200STEP 10 xPR INTiilB , T4 » a SS”USR ( 8400 I > : PR I N T SB , CS ? : SS^USR ( G500- I > sNFX 
T 

510 PRINT3S36," FIM DO JOGO " ? * FOR I “5950T O6045STEP5 a SS^TJSR ( I ) aSS^USR ( 1 *1 00 > 8 NEXT 
a FOR I = 1 TO350 a NEXT xPR INT3536 , " TECLE < CLEAR > "* 

520 SS*°USR ( 3000+RND < 200 ) > iP^PEEK ( 14400) : IFP< >2THENS20 
530 GOTO740 

540 PR INT8Q ( V ) , CS » * FOR I =10507 01 130STEP5* SS«USR ( I ) x NEXT a RETURN 

550 PRINT3B ,BS( 1 > ; a IFG-350M=RND < 9 > »i 0 a PR INT3537 , "# BONUS «" ; t FORR-07 OhSTEP 1 0 : 
SS»USR<R+1SH00) 8 PR INT3544 , R j : NEXT a Z=Z+M a PR INT37 , Z j sELSEPR INT3536 , " PAR ABE. NS ! * ' 

560 F ORR = i T05 eF OR I =59007 O6000STEP10:SS»USR(I ) x NEXTI , R 2 FOR I» 1 TO300 : NEXT a L=L-3 a IF L 
<5L-5 

570 PRINT3960, ? a K =K ♦ 1 0 J GOTO 1 70 
580 CLSaF0RI»lT06aPRINTDK I > ; a NEXT 

590 PRINTM400,"# POR: CRISTIANO TELLES RIBEIRO *" » 3525 , BS ( 1 ) ? " -> EXPLORADOR " ; 35 
45 , MS ( 1 ) ; " -> MICROSSAURO"; 

600 PRINTi)643,"<";PS 1 " ) -> PEROLA <i PONTO >" p 8672 , " < * > - > DIAMANTE <50 PONTOS) 

610 PR INT8768 , "08 JET IVO a PEGAR TODAS AS PEROLAS E DIAMANTES D * CAVERNA E TENTARE 
SCAPAR DO PERIGOSO MICROSSAURO. PARA MOVER USE AS <SETAS>. BOA SORTE !H"» 

620 PRINT8972, "(RETURN) PARA JOGAR OU (CLEAR) PARA VER OS RFCORDES"; 

630 SS*USR(7950+RND<50) ) XGOSU8470 

640 PR I NT 3525 , BS ( 0 ) p 3545 , M4 < 0 ) ; 3973 r R YS ( 0 ) p 3996, R XS < 0 > p 
650 P»PEEK< 14400) l IFP=1THEN670ELSEIFP«2GOSUB010 
660 GOT 0630 

670 RANDOM a Z=0 a C“0 a L*20 • K=50 a RETURN 
680 FORI“lTO300a NEXT a RETURN 

690 M=208N«24sFORU“0TO320STEP64aPRINT3W+h,STRING%<N r 191 ) ; a N=N+8 a M«M-4 a NEXT iFORU® 
384T0512STEP64 x PR INT8W , STR I NGS ( 64 , 191 ) p aNEXT 

700 F0RU=576T0896STEP643N"N-8:M»h+4:PRINTaW+M,STRINGS(N, 191 ) p a NEXT x RETURN 

710 CLS a N“3 a M“55 *FOR 1=64 TO960STEP64 :PRINT3I , STR ING$< N , 191 > p CHRS ( 192+M > p STR INGS <N 

,191 > ; a IF I < 576N=N+3 a M=M-6 

720 NEXT x J=29a FOR 1 = 158 T0926STEP128: PRINTai,"#"p aNEXT 

730 J=J+i28aPRINT3J r BS(RNI)<2) ) p : PR INT3J- 120 , " " p 1 SS»USR < 6700 ) a RETURN 

740 RC»733*IFR<5) >*ZTHEN810 

750 F0RI-5T01STEP- 1 a IFR < I ) < ZTHENNEXT 

760 F0RR*5T0I+2STEP-1 aR ( R > «R < R-i ) : RS < R > =RS < R -i ) a NEXT 1 R < I + 1 ) -Z a R % < I ♦ 1 ) 

770 CLS a GOSUB690 a P R I NT3268 , SIR I NGS < 4 1 , 143) j 3332 , " PONTUACAO FANTASTICA 

" p 3396 , STRING* < 41 , 140) p 

780 FORW= 1T05 a PR INT3362 + UI , " I " p aFORR»6000TO5900STEP-10 a SS-USR <R ) aNEXTR , W 

790 PR INT3460 , " VOCE ENTROU PARA A GALERIA DOS MELHORES "p3524," JOGADORES, DA C 

AVERNA DOS DIAMANTES Ml " ; 

800 PR I NT 3668 ,STRINGS(8, 143) ;3732 r STRI NGS <0," "> |9796,8TRING»<0 r 188) p 8588, STRING 
$(41,176) p aGOSUB900xGOTO160 
810 CLSa GOSUB690 

820 FORI=2107O750STEP64aPRINT3I , STR INGS< 29 , " "IpaNEXT 

830 RWS=CHRS< 188) aRNS=CHRS< 191 ) xRP^0:PRINT3211 ,RUf; STRINGS (25,140) p RU$ p 3339 , RN$ ; 
STRING$(5, 140) pRUip STRINGS <10, 140) p R US p STR INGS < 8 , 140 ) p RN% p 3275 , RNf p 3301 , RNS p 
840 FORI =403TO659STEP64 a PR I NT 3 1 ,RN$ p3I+6,RN$;3I + 17,RN$;3I+26,RN$;:NEXTsPR INT3722 
,CHR$< 176) p STR INGS (27,1 79 ) pCHR$< 176) p 

850 PRINT3279, "GALERIA DOS MELHOR ES" p a FOR I -69OTO720 a SS-USR < I ) a NEXT 

860 FORI«405TO6B9STEP64aRP=RP>l XPRINT3I ,RP p3l4-7,RS(RP) p 31 + 17 , R ( RP ) p x FORR-550TO56 

0aSS»USR<R) aNEXTR, I 

870 PR INT3985, "TECLE (CLEAR >"p 

880 G0SU8 470 a PR INT3992 , RXS < 0 > p a 8S»USR < 8200 + RND< 50 ) ) 

890 IFPEEK< 14400) < >2GOTO880ELSEGOTO1 60 
900 PRINT3RC,STRINGS<6, 176) p 

910 AS=lNKEY$xGOSUB470: IFAS=CHRS(B) ANDRC >733RC-RC-1 a SS=USR < 3450 ) a IFRC< 738PR INT3R 
C+l ,CHR$< 176) pELSEPRINT3RC+l," "p 

920 IFAS»CHR$< 1 3 ) THENGOTO950ELSEP R I NT3R C , RHS ( 0 ) ; aIFAS< >""R A»ASC ( AS ) ELSEG0T091 0 
930 IFRA<320RRA> 122ORRC“739THEN910 

940 PRINT3RC, ASp xRC-RC + 1 xRA»0:SS-USR<3800) IGOTO910 
950 FORR=9B70TO9990STEP30aSS=USR<R ) aNEXT 
960 F0RRI-733T0739XRK-PEEK (R 1 + 15360) a IFRK > 122THENRK-32 
970 RS ( 1+1 >=R$( 1+1 )+CHRS(RK ) aNEXT 
980 RETURN 

990 F < 1 )=33aF<2>=35BF<3)=30aF<4)«20aF<5)*47aF<6)=38 

1000 FORR»1T06XFORI*1TOF(R ) x R EADU x D% < R ) »DS ( R ) +CHRS ( U ) x NEXT a GOSUB 730 x NEXTR 

1010 DATA205, 184, 191 , 191 , 191 , 1 91 , 191 , 1 80 , 120 , 1 90 , 1 79 , 1 89 , 1 28 , 1 75 , 1 76 , 1 59 , 1 28 , 1 90 

,179, 131 , 128,191 , 179, 189, 120, 191 , 164, 191 , 128,190,179,189,225 

1020 DATA191 ,191,191,149,120,128,128,128,143,128,143,128,128,131,128,128,139,140 
,140,128, 143,130,141 ,128,131,120,131,128,143, 128,143,160,190,180,222 
1030 DATA139, 191, 191 ,191,191,191,135,128,128,128,128,128,191,131,189,128,190,131 
, 189, 120,174, 179, 147, 120, 128, 128, 128, 128, 128, 128*, 184, 191 , 191 , 191 , 189,144,232 
1040 0ATA131, 131, 129, 128, 130, 131, 129, 128, 140 ,140, 135, 128, 128, 128, 128, 128, 128, 130 
,139,143,143,143,143,131,222 

1050 DATA191 , 131 ,189, 128, 171 ,151 , 128, 190, 179, 189, 128, 191 ,164,152,191,128,190,179 
,189,128,191,164,170,149,130,171,151,129,168,183,147,129,136,183,179,129,220 
1060 DATA 143,140, 135, 128, 142, 141 , 128, 143, 128, 143, 1 28 , 143, 128,128, 143, 128, 143, 12 
8, 143, 128,143, 128, 139, 133, 128, 138, 133, 128, 130, 14 1,1 40, 132, 136, 140, 142, 129 
1070 RETURN 

1080 f XXXXXXXXXXXXXXXXXXXXXX 
1090 r XX CRISTIANO TELLES RIBEIRO XX 

1100 'XX BRASILI A-DF TEL: 248-0317 XX ■ 

1110'XXXXXXXXXXXXXXXXXXXXXX 



V 



• A SB/DADOS coloca £ disposigao de 

executivos e profissionais em geral uma 
bateria de Aplicagoes desenvolvidas em 
Lotus 1.2.3 e DBase III especificamente 
para areas administrativas e financeiras, 

tais como: 

^Faturamento - Escala da Otimizagao - 
^^Folha de Pagamento 
i^Controle de Estoque - Programagao de 
Produgao 

^^Curva de Custos - Inventario Diario - 
Curva ABC de Estoque. etc. 





INSCRIQOES COM Sr. Carlos Raso - Pelo 


* " 




Tel.: 881-2227 


— 




PROGRAM AQAO PARA 






MAIO E JUNHO 


1 



1 



TREINAMENTO PASSO A 
PASSO 

• Trabalhando com DBase/ll 

12 a 16 maio - 02a06 junho • 20h 
a Desenvolvendo com DBase/lll 
05 a 09 maio - 16 a 20 junho - 20h 
a Redigindo com Wordstar 
12 a 16 maio - 09 a 13 junho - 20h 
a Redigindo com Word 
26 a 28 maio - 02 a 06 junho - 20h 

• Integrando com Lotus 1.2.3 

05 a 09 maio • 02 a 06 junho - 20h 

• Como operar o Supercalc III 

05 a 09 maio • 16 a 20 junho - 20h 



I 



TREINAMENTO AVAN^ADO | 

• DBase/ll para Programadores 

12 a 06 maio - 09 a 13 junho - 24h 

• DBase/lll para Analistas 

19 a 23 maio - 23 a 27 junho - 24h 

• Lotus 1.2.3 para Usuarios 
19 a 23 maio - 09 a 13 junho - 20h 



FORNECEMOS: 

e Material didatico 'Quik Reference" 

• 10 micros PC IBM 
e 1 telao 52" 

• Flip chart - lousa japonesa 

• Retro 

FORMA DE PAGAMENTO: 

• 50% na matricula e 50% no 1.° dia. 



1 



1 



P ' ,5 co esp - 



Q 

w SISTEmftS DE BANCO DE DADOS 

R. Groenlandia, 1 750 J Europa CEP 01434 

Tel: (011)881-4599 

Sao Paulo SP 



MICRO SISTEMAS, maio/86 





msx msx msx ms 



Marcelo Lima 



Speed Race 



Speed Race 6 um jogo desenvolvido 
no micro Expert, podendo rodar em 
qualquer outro equipamento da linha 
MSX. 

Visando possibilitar a compreensao e 
facilitar possiveis aprimoramentos, 6 
descrita, a seguir, a estrutura do progra- 
ma: 



'apple 



na ADDRESS voce devora 
qualquer tipo de # 

Exclusivo metodo de ensino 
VIDEOTliHCH que se utiliza da 
mais moderna tecnica VISUAL 
o video-cassete. 

Edipao microcomputarizada. 
Curso de BASIC TOTAL, e de 
APLICATIVOS apple #. 

TURMAS ESPECIAIS 
PARA EMPRESAS 

FAQA SUA RESERVA JA PELOS 
TELEFONES: 

Oil 211-5348 a Oil 212-0370 
RDDRESS 

Video 

Computer 



apple 



Connection 



ma'cti rugiatr ada apple mnputp* 



Rua Natingui, 1199 

CEP 05543 - SSo Paulo - SP 

Alto dot Pinheiros 



Linhas 10 a 1 10 — Montam as figuras 
usadas pelo programa; 

Linhas 120 a 190 — Preparam a tela e 
estabelecem alguns parametros; 

Linhas 200 a 240 — Constituem a ro- 
tina principal do programa; 

Linha 300 — Atualiza os dados; 

Linhas 310 e 320 — Desenham o nos- 
so carro e o carro adveislrio; 

Linhas 330 a 350 — Leem o estado 
do joystick; 

Linhas 500 a 530 — Sub-rotina de ex- 
plosSo; 

Linhas 600 a 620 — Atualizam o re- 
corde e recome 9 am o jogo; 

Linhas 700 a 740 — Apresentam o 
jogo; 



id screen i, 3, o:*:eyoff:j»3 
G08UBB00 

20 FOR I ■ 1 T 032 : READA 
10 B*«S»+CHR«<A) 

40 NE X T I : SPR 1 TE* ( 1 ) **S4 

30 S*»"" 

90 FOR 1 = 1 T 032: RE AD A 
100 S*=S*+CHR* (A) 

no Ntxri:spRiTE*(0)-s« 

120 CL8! GUI O/OO 

130 FOR I -0T022: LOCATES, I * PRINTCHR* (215) 
: LOCATE 18, I:PRINTCHR6 (213) I NEXT I 
140 l.OCAl EO, 4: PRINT" Tempo" 

150 LOCATED, 9: PR I NT" Vi da*" 

160 LOCATED, 1 4: PRINT“Pto*. * 

170 LOCATEO, l vrFRiNT-Valoc" 

1 75 L0CATE20 , 4 : PR I NT "R*cor d " : L0CATE22 , 6 
: PR I NTUS I NO" ####*'» RE 
100 ONSPR I TEQ0SUB30O 

190 V-0: VI-3: P-O: TIME-O: X=134: z— 20s Y-9 
0:B=120 

2DO F=INT (RND (-TIME) *10) : IFF-5THENL- 1 5E 
LSEL-22 

205 SPR IT EON: J=-J 

210 F0RG*1T0L: Z=Z*3*V: IFZ >190THENZ=-20: 
P-P+10 

214 I *= INKEY* 

215 IF I *=" A"GR I • = "#" THENV— V+ 1 

216 I F I " Z *' OR 1 " z "THENV-V-l 

217 I F V > 1 5THENV= 1 5ELSE IFV< 1THENV-1 

21B SOUND 1, (13-V) : SOUNDS, 15:T=INT (TIME/ 
60) : Y«Y*J 

220 IFY< 67TH£NY»67ELSEIFY >134THENY=134 
230 GUSUB320: G0SUB330: G0SUB300: NEXT 
240 GOTO2D0 

300 LOCATEO . 6 : PR I NTUS I NG '*#•*# " J T: LOCATE 
2, 1 1 : PP I NT V I : LOCATEO, 16: PRINTUSING" IMMMI 



Linha 800 - Sub-rotina de som; e 

Linhas 1000 a 1010 — Dados para a 
construfSo das figuras. 

Para jogar 6 necessdrio utilizar um 
joystick. Pressionando-se o botSo 1 do 
mesmo, a velocidade aumenta; e pres- 
sionando-se o 2, ela diminui. Para os 
que nJo possuem joystick, e desejam jo- 
gar atravds do teclado, bastard inserir e 
mudar as seguintes linhas: 

214 19- INKEY* 

215 IF t*="S'* OR I*-"*'* THEN V-V+l 

216 IF I*«“Z" OR I6-"z M THEN V-V-l 

330 A-S7ICK<0):IF A-3 THEN X-X+0 ELSE I 

F A- 7 THEN X-X-B 

OBS: Para se obter o career H da 
linha 130, pressiona-se as teclas SHIFT, 
L-GRA e P, simultaneamente. £ 



u I P: LOCATE2, 21: PRINTUSING"##" I V! RETURN 

310 PUTSFRI TE1, (X.B) ,6: RETURN 

320 PUT SPR I TE2, (V,Z> ,5, I: RETURN 

330 A*ST I CK < 0 ) ! If A-3T HFNX-X *8£ LSE IFA-7T 

HENX«X-0 

333 IPA= 1 THENB* IOOELBE IFA-5THENB- 120 
340 IFX 1 34THENX = 1 34ELSE IF X • 67THENX=67 
330 G0SUB310:RE I URN 

500 PUTSPRI TEO, <X*3*J. 110), 15:S0UND0,0: 
SOUND 1,0: S0UND6 , 3 1 : SOUND/, 1: SOUNDS, 16: B 
OUNDU, 100:S0UND12, 100: SOUND 1 3, 9 
505 SPR IT EOF F 

510 F0RO=lTO20OO:NEX TO: PUTSPRI TEO, (0.0) 

, 0: PUTBPRITE2, (255.0) ,0, 1 

520 VI-Vl-l: IFVI--1THENG0T0600 

330 v-o: X-134: Z"-20: GOSUBBOO: RETURN200 

600 PUTSPRITE1, <X,B) ,0 

610 IFP>RETHENRE-P 

620 GOTO 120 

700 OFEN"GRP: "FOROUTPUTASdl 

710 SCREEN3 

711 PSET (30, 30) IPR1N1 1, "SPEED" 

712 PSET (VO, 80) 

715 PR I N T # 1 , "RACE" 

720 CLUBE 

730 FORI *IT03000: NEXT I 

740 SCREEN 1 : CL S: GOSUBBOO: GOT 01 30 

800 SOUNDO , 235 : BOUND 1,15: S0UND6 , 3 1 : BOUN 

D7, 8: SOUNDS, O: SOUND 1 1 , O: SOUND 12 , o: SOUND 

13,0: RETURN 

10O0 DATA 1 4, 223, 235, 253, 223, 31,^7,17,17 
, 223 , 255, 255 ,223,14,0,0,0,96,224, 224 , 96 
,0,0.0,0,96,224,224,96,0,0,0 
101O DATA4, 31,95, 13,31,63,63, 159,61,63, 
31,30, 76, 0,8, O, 0,68, 224,226, 248, 252, 252 
, 248 . 240 ,230,240.192,5,2, 80 , 0 



Speed Race 
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Sempra Novidades 



ESPECIAIS 

Estes programas foram considerados os melhores, atfe hoje, em suas modalidades. 
Caneta Otica • Deskmate • Gold Runner • Karate ■ Knock Out ■ Marble Mate ■ Pit stop II 
Module Man • Shock Tropper »P SI Mustangm OS 9 ' Slst. Operaciona! ■ Batalha Naval 



CP- 400. Color 64. MX 1600 etc 

ADVENTURES 



Coe 


F/0 


Program# 


| Manual 


PD 012 


D 


Bia-.kbea-d s Island 


NAo 


PD 013 


D 


Dal.es Quest 


ingi#* 


PD 016 


D 


Marooned 


Nlo 


PD 017 


F/D 


The Martian Crvpi 


NAo 


PD 019 


F.D 


T rekboer 


NAo 


PD 020 


F/0 


Vortex Factor 


NAo 




PJ 106 


F D 


Brewma&ter 


NAo 


PJ 109 


F D 


Chambers 


NAo 


Pj no 


F D 


Columbia 


NAo 


PJ tit 


F 0 


Crazv Painter 


NAo 


PJ U2 


F D 


5 

c 

I 


NAo 


PJ 113 


D 


Dragon SUver 


NAo 


PJ H5 


F D 


Fignter Pitot 


NAo 


PJ 116 


D 


Ghana Bv»*ne 


IngiAft 


PJ 117 


f D 


GoXJ Runner 


NAo 


Pj H9 


F 0 


Jaws 


NAo 


Pj 120 


F D 


Karate 


Nlo 


Pj 121 


F D 


King Tut 


NAo 


PJ *22 


D 


Knock Out 


IngtAs 


PJ 123 


F/0 


Marble Maze 


InglAk 


PJ 124 


F D 


Module Man 


NAo 


PJ 12b 


F/D 


Mr Dig 


NAo 


P J .127 


D 


One on One 


InglAft 


PJ .128 


F/D 


Pegasus 


NAo 


PJ.129 


F/D 


Peng on 


NAo 


PJ 130 


D 


Pitsfop II 


InglAs 


PJ 132 


f 0 


Shock Trooper 


NAo 


PJ 133 


F D 


Shooting Gallery 


NAo 


Pj 136 


F D 


S teller Lrfenne 


NAo 



^OW F D oatahaNavaf 

PP 010 f D B dge 

PP011 f D Gorroku and Reniu 

pp 012 F D Moneyooofy 



PS 004 F D Boeing 747 
PS 006 F/D P-51 Mustang 



ntu i» oo Programas onde voci responde 

i>«i»> iaoo 

N»o ia.oo as perguntas a medida em que 

win « oo vive urna av8n,ura emocionante. 

N»o oo Alta resol ut 3 o grifica 

JOG OS __ 

NAo 48 00 A|ud« o girijom a servir as carveiaa 

NAo 48 00 I acelente Um do* mats bomtot e movmnniatjtts |ogo* de lebmnto 
NAo 48 00 Sobrevo# O mundo mtmigo defendendo tu# nave 
NAo 48 00 T*nt* pmtar o video combatendo o* chetoft qua tentem anpedn 

NAo 48 00 Uiuapesse obstaculoseaoenhe ostesouros eer apendo dotpmgos 

NAo 1 M 00 Advent mest'^do com l«b<Mnto Eicepoonef" 

NAo 48 00 Mat* urn compate M^eo bom ptograme no ge*ro 
IngiAs 1 71.00 Face uni .ncursAo 30 terntdno anrrvgo per# »ec up*'** bAio 

NAo 60.00 Aventura tvaseaoa TO Hm* Loed Runner 

NAo 48.00 £»Mo pecKrrun Cors'deredo o metdo' de(e« vocAc'-a etw^tos 
NAo 60 00 A gi*nde sensacio. S6 vendo p»» rrer 
NAo 48 00 Cepture suet cofoat etcapanqo det fcerpenlete dot 
rtpiAb 140 00 Lutadeboxe Tnaimenvonel Sentaoonai 
InglAh 00 00 Indescritivel Labinnt© todimeneonel Um dot melhoret do eno 
NAo b0 00 Outre tensacao 0o« man vendidoi no* EUA 
NAo 48.00 A|ude ocoetho a comer tuAS cenouia* 

IngJK 128.00 Jogo de bacquete muilodifundido noi FUA Um contra um 
NAo 48,00 Similar ao Buzzard Bait GrAficos de altiaaima qu alidade 
NAo 48.00 A|ud« o piriguima aliminar osiriseloa comeeua CUbOA da gelo. 
Ingles 140 00 t mpolgame corrida c/ reebast admen to e from de pneua At4 2|Og 
Nlo 60 00 Cortstderado |unto C ’ Marble Maze oe do* malhorea prog do an o 

NAo 48 00 Galena d# tiros, de um perque de divartAe* Mu-io boruto 

NAo 48 00 Protefa aeu comboio doataque do« aliemgenaft 

TR ADICIONAIS 

Port 100 00 A rnooonei am aita reaoLiiio L«n*ft**nelH 

NAo 48 00 Para o« amantes d*ste (pod* fogo 

NAo 48 00 Tr«dtctf>nei oavk.ter-po or*r.«ei em taboiewo 

Nlo 48 00 ObancarrvobBiAnoaue vocAfAoonbere D<veH«*ai«no 

SIMULA PORES 

IngiAs 80 00 Simuledor Cabin# de Boemg 74? 

InglAft 100 00 Simuledor de v6o c/ combale entre dom c omp.it ou contra o van 
Pori 80.00 Simulador de v6o em tempo de guerre 

APLICATIVOS 



£ 001 0 


OS-9/Sisr Operational 


InglAa 


PA 031 F D 


Caneta Otica 


Port 


PA 036 D 


Control# de Assmantea 


Port 


PA 032 D 


Control# de Estoque 


P on 


PA 033 D 


DesKmat# 


IngiAs 


PA 036 D 


Pro Color F.le Enhanced ingiAs 


PC 008 D 


Cocomax 1 


IngiAs 




PC 021 0 


D*sk Dr.ve Analyzer 


NAo 


PU 022 F 0 


HI RES II 


<ngias 


PU 023 F D 


ML Basic 


inpiAs 


PU 024 D 


Pnatector 


IngiAs 


PU 025 F 0 Tvpedupe 


NAo 


PU-027 F D 


Utility Routines 


lnglA« 



260,00 Light pen A compan ha software • manual 
*4)0 00 Capacrdade para 900 assmentee 
600 00 CepacidAde para 630 tens 



utilitArios 



PL, 82’ 0 D«sk Dove An*yze» NAo 300 00 AneAtMor oa functonamento de drives com varoa t.pos oe teste 

P\J 022 F o HI RES II 1 ngie*s 120 00 T lAnsfo* ma o video oe seu cokx pa»a ana reftoi^Ao Bam versAii 

Pu 023 F D MLBavc inpiAs 320 00 O met poderoso como4ador 

PU 024 D Piratenor IngiAs 380 00 Potent# protetoide programas cnados por vocA Nmg.iAm abre 

PU 02b F D Tapedupe NAo 280 00 DupUcedar de frtas Duplica litas protegrdas. menos da Mrcromaq 

PU-027 F.D Utility Routines InglAa 200 00 28 rot uses utilitdnes para levs programas Agoraemtita 

Importante. Os programas qua tenham opqflo F ou D estSo com sous precos na versAo Fita Paia 
aquisicfto em Disco, anexat C/9 80,00 tin Disco e Embalagem k A A A * sY 



Faga seu pedido pelo correio, 
para o enderego abaixo. 
anexando Cheque ou Vale Postal e 
receba, SEM MAIS DESPESAS. 
_em aproximaaamente 15 dias. 



v.. ^ 



MSX 

JOGOS 



ANTART1DA ADVENTURE Um gostoso passeio pela 
Antirtida acompanhAdo de um pinguirn Preco A 

KEYSTONE KAPERS Prftnda o ladr^o antes que seu 
tempo acal>r* Preco: A 

GALAGA IdBntrco ao ''FANTASTIC" do fliperama 
Realmente FANTASTICO Pre*;o A 

LUNAR Urn passeio com seu ittep lunar pode nio set 
muito tranquilo Preco A 

PADEIRO MALUCO NeMA padaria existum raposas 
pror<tss a acabar com a sua produc^o NSo oe xe rsto acontere# 
Preco A 

GALAX Num mundo near e irienarravel voc% dev* iut«r 
pera sobr^vivnr Preco A 

ROAD FIGHTER Esoo NdO r^ Ejropa como o PtHhoi 
game para a Inh* MSa em 1S86 l *ir zarte co'nda de csrros 
por pravis esuadas pontes e etc Pr«co B 

COSMO Deferida a sue base contra os invasoret 9 
mveis de dificuidede Preco A 

CANNON Voc8 A o ultimo soidado da sua artilheria 
Defen da o seu tour usartdo o canhAo Os tanques e a vide s 
immigos estio aia< ando Preco A 

COELHO MALUCO Esc ale o prldio evitando os oulros 

anlmais e peqando o miximo de cenouras po snivel Preco: A 
DIZZY BALL As pedras vSo rolar N3o deixe que cat am 
sobre voc8 Quebre todes possiveis para pegar os poles P A 
FLIPPER Sirtt* se num a das melhores mesas de FLl 
PERAMA Preco A 

FAIXA PRETA Lute contra ammais e lutadores asses 
sinos Preco A 

BOEING S imuLidnr dn vOo Preco B 

POLAR STAR Num ptaneta distante vOc8 deve mvadir 
as basfts do -nim.go e destru- ias Preco A 

SHADOW ADVENTURE Voc6 eta o p k>?o de um 
Sviao espiao que criu r »a SIBERIA N2o se de xe pegar petos 
mrr-yos nrn trio Requer oonbec nientos de INGLES P A 
SUPER COBRA Com o se., net c opte* o mvada a base 
r rruga sem se> r .«>'«‘<*rto Preco A 

TURBOAT Enf rente os pengos com a sua lantha a >alo 

dentro de um no Preco A 

MR. CHIN O grande equrlibrista de pratos. Mr Chm. 
nSo pode deixar que os pratos r.aiam rtem ser pego por lutriveis 
assassinov Prer;o: A 

FROGGER Ajude o vapo atravessar a rua ho no. PA 
ARVORt MAGICA Suba o rua is alto que puder rtesta 
drvore e replete de armadilhas Preco A 

OLIMPIADA I Algutis desaf«o« para voc8 provar que * 
um atleta Preco A 

OLIMPIADAS II Como o anterior, mostrn que vx>ce e 
um atleta Prtfco A 

COLUMBIA Defend* seu planet* contra as »nume>as 
naves tramigas Como no Flipper P'eco A 

PITFALL II Aventura na ftoreera (tipo ATARI! P A 
RIVER RAID idbntico *o do COLtCO Avarice '*o 
adentro rornbalendo os in.rmgos Preco A 

CORRIDA MALUCA Pegue lodasas banderras dentro 
do iabirinfo mas fu»a dos carrot q .e the pe-seguem SENSA 
ClONAL Preco A 

DECATHLON Igual ao do Flipperam<i Preco A 
HIPER SPORT I Proves rsportivas Prego A 
HIPER SPORT II IDEM Tiroaoalvo Preco A 
HERO Destrua obst^r uloe. enfrente monstros e ammais 
nesta emocionante a vent me dentro de um verdadeiro labmrito. 
e salvu sua hoioina Preco A 

LE MANS Sensacional corrida de carros, Mostre suax 
habilidades como piloto Preco A 

GHOSTBUSTERS Reviva as emoc^es do film# "Os 
Cacas Fantasmas" Preco A 

EPUC A T1VOS 

MATtMATICA INFANT1L (*t Pafa cartas em Iim 
de M)rendi/ado Fwil Tj es qvart'o operac&ek dAsm; m Preco A 
MACACO ACAOfMICO jogo mjtematico rom as 
ouatro operacdes bAsrcas Preco A 

APLICATIVOS 

MALA POSTAL (M Um super banco de dados Tote* 
lacilidade am apager alterer buscar ordenar e rnsenr regrslros 
3 tipos de relatdnos (inclusive etiquetas) Metoao de ordenecAo 
rApido Capac idade per# 1 00 regisiros com t campo para obser 
vapdes de 30 caracteres Preco C 

TASWORD Um poderoslwsmo processador de textoe 
Urna quantidade enorme tie recursow. Man em inglte Preco C 
MAGIA Numeroiogie, hordscopo e biorritmo Preco A 
CALENDARIO CalendAno, tabela de cortversAo 
CRUZEIRO x CRUZADO Preco A 

GRAFICOS BIDIMENSIONAIS Urna poderosa a|uda 
na viSLiali/acAo das funcbes MATFMATICAS cnadas pelo 
usuaro Ace>ta quatquer funcAo matemAtica. Preco B 

n - PROGRAMAS DESENVOLVIDOS NA MICROMAQ 
TABELA A C/S 60 00 d C/S 70 00 C Cz$ 120.00 - 
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equipe tecnica de MICRO SISTEMAS avaliou, em seu CPD, 
o desempenho de tres produtos dispomveis no mercado. 
Sdo eles: o cartucho Toque, da Gradiente; o compilador 
BASIC, da Microdigital ; e o programa utilitdrio Color Kit. 



Musica e utilitarios para seu micro 



Compilador 

para o ZX Spectrum 



U m dos maiores desejos de 
qualquer usuario de micro- 
computadores e, sem dtivi- 
da, escrever seus programas em As- 
sembler. Porem nem sempre isto 6 
possivel, pois programar em lin- 
guagem de maquina exige um co- 
nhecimento muito grande, tanto 
da maquina utilizada quanto da 
propria linguagem Assembler. Mas 
nao 6 por isso que vamos desis- 
tir, afinal e para evitar esses pro- 
blemas que existem os compilado- 
res. 

Um compilador i um progra- 
ma que traduz a linguagem BA- 
SIC para a linguagem de miquina, 
que 6 compreendida muito mais 
rapidamente pelos computadores, 
o que permite uma velocidade 
muito maior na execugao das 
rotinas. 

O compilador analisado pelo 
CPD de MICRO SISTEMAS serve 
apenas para os equipamentos 
compativeis com o ZX Spectrum 
(TK90X e TS 2068), estando dis- 
pom'vel em duas versoes (para 16 
e 48 Kb). Este compilador e co- 
mercializado com a marca Micro- 
soft, sob o tftulo “Compilador 
BASIC FP”. Seu funcionamento e 
muito simples: voce escreve seu 
programa em BASIC e aciona o 
compilador com um comando 
USR, que varia de acordo com a 
capacidade de memdria do seu mi- 
cro. 

Alguns poucos comandos po- 
dem sofrer alteragdes na sintaxe, 
o que e explicado no manual que 
acompanha o programa. O progra- 
ma compilado pode ser colocado 
em qualquer parte da memoria 
dispom'vel, exceto na ocupada pe- 
lo compilador, que deve obrigato- 
riamente acompanhar os progra- 
mas compilados. O “FP” no nome 
do programa quer dizer “Floating 
Point”-, isto significa que este 
oompilador aceita valores numeri- 
cos fracionados. Se por um lado 




Compilador BA SIC, 
da Microsoft, em fita ■ 



isto & vantajoso, pois nao se fica 
limitado a numeros inteiros, em 
compensagao perde-se em veloci- 
dade de processamento. 

As vantagens do uso de um 
utilitdrio deste tipo sao vdrias, a 
comegar pela maior velocidade de 
processamento de programas, que, 
ap6s alguns testes, mostraram um 
aumento de tres a dez vezes, em 
relagao ao BASIC (dependendo 
dos comandos utilizados). Outra 
vantagem 6 a redugao da memoria 
ocupada pelo programa; e uma 
que nao pode ser esquecida 6 o 
aspecto de protegao dos direitos 
autorais, pois um programa com- 
pilado pode ser comercializado 
sem o fonte em BASIC (que so o 
autor possuira), ja que 6 pratica- 
mente impossivel rccriar um fonte 
a partir de um programa -objeto 
desconhecido. Visto por este as- 
pecto, o programa compilado 6 
muito mais dUfx'cil de ser mexido 



por piratas e abelhudos congene- 
res, que vivem do trabalho alheio. 

O oompilador da Microsoft 
saiu-se satisfatoriamente nos tes- 
tes e so deixou a desejar no Ma- 
nual de Instrugdes, que, apesar de 
ser escrito em linguagem com- 
preensi've! e ter bons exemplos, 
peca no tamanho bastante reduzi- 


do (6,5cm x 10cm), o que dificul- 
ta a leitura do mesmo. 

O “Compilador BASIC FP" 
pode ser encontrado nos revende- 
dores da Microdigital, e a fita 
cassete vem com duas versoes do 
programa, sendo uma para 48 Kb 
e outra para 16 Kb. Texto: Divi- 
no Carlos R. Leitao. 


Nome: Compilador BASIC 
Linhs: ZX Spectrum 

Fabricante: Microdigital Eletrdnica Ltda. 

Enderego: Rua do Bosque, 1234, Sio Paulo - SP. CEP 01 136. 
Talefona: (Oil) 825-3355. 

Prego: Czf 79.50 




Color Kit 


4 



O ferecer uma colegao de pro- 
gramas utilitarios que pro- 
porcionem diversos melho- 
ramentos ao BASIC, al6m de fer- 
ramentas uteis para o desenvolvi- 
mento e a depuragao de progra- 
mas, e o objetivo do Color Kit 
(que se encontra disponivel em 
cassete e disquete). E, portanto, 
um software dirigido para usua- 
rios do TRS -Color que ja domi- 
nant o BASIC do equipamento e 
gostam de escrever seus pr6prios 
programas. 

Para auxiliar o usuario nessas 
tarefas, o Color Kit implementa 
diversas novas fungoes, que po- 
dem ser acessadas diretamente 
do BASIC como um comando 
normal. Dentre essas fungdes, 
destacam-se um editor full-screen 
que se propSe a permitir a inser- 
gao e edigao de linhas em qual- 
quer ponto da tela; dez teclas de 
fungao programaveis para a im- 
pressao de comandos por extenso 
e fungdes para a compactagao de 
programas atravds da delegao de 
espagos e linhas de comentdrios 
(REM). 

Estao dispomveis ainda coman- 
dos para examinar, modificar e 
mover blocos de memoria; listar 
variiveis e procurar num progra- 
ma a ocorrencia de determinado 
texto ou instrugao; proteger ou 



recuperar programas perdidos por 
NEW, BACKUP ou DSKlNI;jun- 
tar na mem6ria(MERGE) progra- 
mas gravados em cassete, aldm 
de prover o sistema de melhorias 
como feedback auditivo nas teclas 
(BEEP), video reverso(caracteres 
verdes sobre fundo preto), contro- 
le da tecla BREAK e nove veloci- 
dades diferentes para a impressao 
de mensagens na tela e execugao 
de programas em BASIC - in- 
cluindo uma modaiidade single- 
step, onde cada linha 6 listada ou 
executada por vez. 

A operagao do sistema revelou- 
se bastante simples e eficicnte, 
embora sua apresentagao nem 
sempre possa ser considerada das 
mais elegantes. Os comandos adi- 
cionais nao sao associados a 
tokens, mas sim identificados por 
um ponto(.) e verificados digito 
a digito. A sintaxe da maioria dos 
comandos 6 clara(.MEM para mo- 
dificar memdria; .DARK para vi- 
deo inverso), embora alguns se as- 
semelhem mais a mnemonicos 
(.KLOF, .MMRG, .PDLY). Tais 
grafias podem ser alteradas pelo 
usuirio, embora apenas alguma 
pratica seja neccssaria para asso- 
ciar os nomes dos comandos as 
fungoes correspondentes. 

As fungdes de edigao prova- 
ram ser eficientes, embora tenham 
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sido observadas limitagSes que po- 
deriam ser contornadas por meio 
de melhores praticas de progra- 
magao. A rotina de inversao de 
video, por exemplo, e muito len- 
ta e produz um piscamento desa- 
gradavel quando o computador 
imprime ENTER ou executa um 
SCROLL. O editor tamb£m apre- 
senta faihas de estetica que pode- 
riam ser corrigidas por uma pro- 
gramagao mais eficiente; sua fun- 
cionalidade, contudo, pode ser 
considerada boa. 

Os comandos que trabalham 
com a memdria, como os de 
delegao de iinhas, transference de 
blocos e verificagao e alteragao 
do conteudo de posigoes da me- 
mdria, demonstraram-se igualmen- 
te eficientes, apresentando gran- 
de rapidez de execugao. A ausen- 
cia de checks de parametros em 
algumas dessas fungdes nao chcga 
a ser considerada um erro, ja que 
a utilizagao de tais fungoes 
presume algum conhecimento de 
programagao por parte do usua- 
rio. 



O manual 6 apenas razoavei, 
sendo claro — apesar de ser em in- 
gles - apresentando pordm os ine- 
vitaveis erros na grat ia de algumas 
fungoes e uma apresentagao visual 
bastante ruim. O usuario possivel- 
mente tenS que folhea-k> diversas 
vezes_ para localizar novamente 
um topico de interesse. 

O objetivo de auxiliar na cla- 
boragao e depuragao de progra- 
mas, no todo, pode ser considera- 
do plenamente atingido, e, nesse 
sentido, o saldo do programa e 
bem satisfatorio. Texto: Claudio 
Costa. 



Nome: Color Kit 
Linha: TRS- Color 
Comercializado por: Micro- 
maq 

Enderego: Rua Sete de Se- 
tembro. 92 - Loja 106- Cen- 
tro ■ Rio de Janeiro - RJ 
Telefone: (021) 222-6088 
Prago: Cz$ 200,00 



Toque, da Gradiente 



U tilizar um micro como um 
gerador musical eletronico 
6 uma ideia que certamente 
ja passou pela cabcga de muitos 
usulrios. £ exatamente esta possi- 
bilidade que a Gradiente Eletro- 
nica e a software -house Moreira 
e Burd lnformatica e Educagao 



(antigo CEB1) colocam a disposi- 
gao dos usuarios de micros com- 
pati'veis com o padrao MSX no 
Brasil (Expert e Hot Bit), atraves 
do seu recente langamento: “To- 
que”. 

Toque 6 um cartucho conten- 
do um sistema completo para cria- 




Cartucho Toque, da Gradiente. 



gao, reprodugao e ediyao de melo- 
dias. Com ele, voce tcra ao seu alcan- 
ce um 6rgao eletronico com cinco oi- 
tavas, oito instrumentos (piano 1, 
piano 2, clarineta, banjo, sino, 
vento, flauta andina e celesta), 
al6m de 16 ritmos selecionaveis, 
que vao do bolero ao rock & roll. 

Alem de selecionar a oitava, o 
ritmo e o instrumento, o usuario 
tambem podcra modificar os para- 
metros de tempo (velocidade ou 
andamento do ritmo), volume do 
instrumento e afinagao. 

Para carregar o programa, bas- 
ta encaixar o cartucho num dos 
slots do micro e aguardar o surgi- 
mento do menu de opgoes, quan- 
do entao o usuario pod era selecio- 
nar uma das fungoes dispom'veis. 

Uma caracteri'stica interessan- 
te deste programa e que ele pode 
ser utilizado por qualquer pessoa, 



desde que ela possua um grau mf- 
nimo de alfabetizagao. Isto 6 pos- 
sivel porque o menu e bastante 
simples, com todas as opgdes sele- 
cionaveis atraves de uma ou, no 
maximo, duas teclas dc fungao. 

£ preciso observar que neste 
programa a tecla RETURN serve 
para interromper ou iniciar a exe- 
cugao de uma tarefa (sclegao de 
uma opgao, execugao de uma mu- 
sica etc.); e a barra dc espago 
serve para fixar uma opgao apos 
ela ter sido selecionada. 

Toque tambdm possui duas 
caracten'sticas interessantes que 
sao a programagao de melodias ou 
ritmos em tempo real c a progra- 
magao e execucao de melodias 
passo-a-passo. O programa tern 
bons recursos musicais, alem de 
ser simples dc usar, e o cartucho 6 
fornccido numa embalagcm invio- 
lavel, juntamente com o manual 
que o acompanha, que 6 de ex- 
celente qualidade, de lacil compre- 
ensao e muito bem ilustrado. Tex- 
to: Carlos Alberto Azevedo. 



Noma: Toque 
Linha: MSX 

Fabricante: Gradiente in- 
formitica Ltda. 

Enderego: Rua Vicente Ro- 
drigues da Silva, 64 1 - CEP 
06000 ■ Jardim Piratininga 
- Osasco - SSo Paulo. 
Talsfona: (Oil) 801-5233 
Prago -.Cat 200,00 







as ultimas nov/dad 



LT10 - Project Future Pengo Nuclear 



L.T12 • Rocky 



SOFTWARE 



MZX 






soft vai seduzir voce! 



LT01 - Bounty Bob • Bob nas Minas 
LT02 - Moon Alert - Alerta Lunar 
LT03 - Pope ye 0 Marinheiro, b daro 
LTM - Huntor KM or - Pilote um Submarino 



LT05 - Skoll Doxo ConfusSo na Escola 
LT06 - Pud Pud Tent© Sobreviver 
LT07 - Booty - Apdo Pirata 

LT08 - Profanation ProfanacSo 
LTOB - Baseball • Ultima Versdo LT28 



LT20 • Spy Humor Cacador de Espidas 
LT21 - Pyjemarame Escape deste Sonbo 
LT22 - Glass Aventuras em 3? Dimensfto 

LT23 - Death Chess 6000 Lances Mortals 
LT24 - Videollmpice Torneio OKmpico 



LT28 • West Bank A?8o no Velho Oeste 
LT30 - Basket • Ultima VersSo 
LT31 - Robin Wood 0 resgate 
0 Desafio LT32 • Time Gate - O Port8o do Tempo 
0 Boxeador LT33 ■ Comen do Exerclcios de Guerra 
LT34 - Be Bill Aventura nas Cavernas 
LT36 • Tapper O Incrivel Choppeiro 
LT38 - Herbert's Travessuras do bebfe Wally 
LT13 - Moon Create Desafio Lunar 
LT14 - Boulderdesh Fuga em Marte 
LT16 ■ Dambusters Miss5o em plena guerra 
LT18 ♦ Alien 8 - Um Robb conduz uma Nave Espaciai 

’. , 

LT17 - Everyone'* Velly VSrios personagens em ag8o 
LT18 - Dukes of Haziard Corrida nas Estradas 

LT18 - Mission impossible O agente secret o 






Custo UnitArio • Czt 80.00 






T agora 
r no Brasil ! 



LIGUE JA! 



CEDU 



INfORMATlCA 
IOUCACAO 6 
SISTEMAS LTOA 



TODOS OS JOGOS COM MANUAL EM PORTUGUES 



wmm 



LT26 - Pogo .Joe Acerte o Jato 
LT26 - Karate Kid Incrivel Lute 
LT27 - City Hall • Mrss3o Espaciai 
Nightahadow - Destrua os inimigos 







Os circuitos integrados sao o coragdo de qualquer computador. 
Conhega um pouco mais neste artigo sobre sua tecnica de projeto. 



Circuitos dedicados 

Jose Roberto de Almeida Amazonas 



HI I m circuito integrado (Cl) 6 
H I um conjunto de elementos de 
B M circuito, conectados de forma 
inseparcivel, fabricados sobre 
um unico substrato”. 

A defini 5 fo acima, apresentada por 
Jack Kilby em 1958, devemos associar 
o conceito de nfveis de integrado, os 
quais dao uma ideia do numero de ele- 
mentos de circuitos integrados, isto e, 
fabricados em um unico chip. A figura 1 
mostra uma possivel classificai^o dos 
m'veis de integra^ao. 

A fabrica^So de um Cl exige, qual- 
quer que seja a tecnologia escolhida, a 
execu?5o de uma sdrie de etapas de pro- 
cessamento, tais como: difusSo, oxida- 
gSo, implanta?ao ionica, deposi^So de 
silicio policristalino e metaliza^ao. 

O conceito de pre-processamento de 
um circuito integrado ate seus estagios 
ftnais, para uma posterior diferenciafao 
pela utiliza?So de padrdes de metaliza- 
9 §o distintos, nos conduz k abordagem 
de projetos semidedicados. Este concei- 
to, historicamente, data do ini'cio dos 
anos 70. 

No ini'cio, as tecnologias basicas de 
fabrica^ao de Cl eram as tecnologias bi- 
polares ECL e TTL e a tecnologia MOS 
de canal P. Alem disso, a complexidade 
dos chips dificilmente ultrapassava 100 
portas por chip. As familias logicas stan- 
dard, tais como DTL, TTL, ECL e 
CMOS, de complexidade SSI e MSI, 



apresentavam franca expansao. 0 surgi- 
mento dos LSI no ini'cio da decada de 
70, e a revolufao do conjunto micropro- 
cessador-memoria, que viveu seu apo- 
geu a partir de 1975, fez com que esses 
componentes fossem largamente utiliza- 
dos para o projeto de sistemas. Esses fa- 
tos reunidos postergaram o desenvolvi- 
mento dos circuitos dedicados e semi- 
dedicados para o ini'cio da decada de 80. 



Os avan?os das tecnicas de fabrica 9 ao 
de componentes criaram a oportunida- 
de para fabricantes de Cl oferecerem 
produtos cada vez mais complexos, com 
um desempenho a nivel de sistema mui- 
tas vezes superior ao conseguido com a 
utiliza 92 o de diversos produtos standard 
SSI/MSI. Esses avan 90 s tecnologicos in- 
centivaram o desenvolvimento de circui- 
tos inteiramente dedicados as aplica 96 es 
a que se destinaram. Entretanto, com 
o aumento da complexidade, o numero 



de tipos de circuitos unicos necessarios 
para uma aplica 9 Jo particular cresce si- 
multaneamente. Esses dois fat os (o gran- 
de numero de circuitos e a complexida- 
de crescente) acarretaram uma explosio 
do tempo e custo do projeto de um cir- 
cuito, limitando as solu 90 es oferecidas 
pelos Cl, LSI e VLSI dedicados iis apli- 
ca 9 des de alto volume de produ 95 o. 

Para manter o custo de desenvolvi- 



mento em um nivel razoavel, bem como 
diminuir o tempo de desenvolvimento, 
as abordagens semidedicadas tornam-se 
cada vez mais populares pela facilidade 
de ado 9 ao de ferramentas computacio- 
nais que permitem a automa 9 ao do pro- 
jeto. 

METODOLOG1AS DE INTEGRAQAO 

Antes de se abordar de maneira um 
pouco mais detalhada os Cl dedicados 



Nivel 


N<3 de Elementos 


SSI (Small Scale Integration) 

MSI (Medium Scale Integration) 

LSI (Large Scale Integration) 

VLSI (Very Large Scale Integration) 


algumas dezenas 
100 a 1000 
5000 a 50.000 
mais de 100.000 



Figura 1 - Classificafao dos niveis de integrafdo. 
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e scmuiedicados, urn projctiita de sistc- 
mas deve perguntar por quc integrar? 

Em primeiro lugar deve scr observa- 
do que as v antigens proporcionadas pela 
tecnologu LSI so podem set alcan^adas 
quando a major parte da eletronica de 
um sistema e integrada cm um pequeno 
numero de crrcuitos integrados. Obser- 
vada esta conditio, as vantagens da inte- 
grag 4o sao : 

• Diminuigio de custos; 

• Mclhoria do descmpenho do equi- 
pamento; 

• Aumento da conflabilidadc do sis- 
tema; 

• Redugio da dissipagio de potencia, 

• Diminuigio da placa de ctrcuito im- 
presso; 

• Economia cm estoques de compo- 
nent es; 

• Economia em manutengio de equr- 
pamentos; 

• ProtegJo contra c6pias. 

As solug&es dedicadas c scmidcdica- 
das oferecidas pela indust ria de semicon- 
dutores podem ser comparadas cm ter- 
mos de hierarquia dos estllos de proje- 
to e tempos de dcscnvolvimento asso- 
ctados, mostrados na figura 2. 

Os circuitos dedicados (full cuitom) 
constituem a maneira mars cficientc 
para se realizar qualquer fur*t,Jo cletro- 
ruca no que se refere i capacrdade de in- 
tegragJo e desempenho do circurto. 




Figura 2 - Fitiloi de pro/eto e tempos de desenrolvtnenlot tlptcot. 



Uma vez quc o circuito todo deve ser cells s3o tipicamente retangulares c pos- 

projetado e que todos os niveis de mis- sucm os accssos de entrada e saida em 

cara sio nccessirios para o processo, posi^dcs padrdes, um elevado nivel de 

este estilo de projeto apresenta os maio- automatic de projeto pode ser conse- 

res custos e tempo de desenvolvimento. gutdo. duninuindo o tempo e custo de 

Diante disto. sua adogJo i feita. pnno- desenvolvimento. Deve ser observado 

palmente, para apiicagdei que apresen- que todos os niveis de mascara Uo ne- 

tam alto volume de prod ug Jo e/ou exi- cessinos para o processamento, o quc. 

gem elevado desempenho A exigencia de sc por um lado encarece a fabrica^io. 

elevado volume de produgJo tern dimi- por outro, aumenta a flexibilidade do 

nuido a cada dia pclo cstabclecimento projeto, permitindo, inclusive, o desen- 

de silicon foundries que conscguem ter volvimento do clunnado projeto misto, 

uma elevada produ^io composta de cm q Ue as partes criticas do projeto s3o 

grande numero de tarefas de pequeno descnvolvidas full-custom e o restante 

volume, c pelo continue) desenvolvimen- j a , f un<r flej e rcalizado usando as cilu- 

to de ferramenlas de CAD. o que acar )a , de biblioteca 
reta a dtminunjio dos custos de projeto 

Os circuitos feitos com standard cells Os gate arrays consistent em matnzes 
utiluam um conjunto de celulas previa- de element os de circuitos, tars como 

mente projetadas e caracteruadas. que diodos. capacitorcs. transistores etc., 

constituem. entio. uma base de dados dispostos de tal forma que permitem a 

para o projeto. Uma vez que as standard definigJo das interconexdes metalicas ♦ 
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A CAMPUS TEM SEMPRE UM BEST-SELLER. 
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CIRCUiTOS DEDICADOS 



C :lo usuario em um estigio posterior. 

ma vez que os gale arrays empregam 
dispositivos fxxos, previamente dcfinidos 
cm termos de localiza^io e tamanho, 
os fabricantes podem pre-fabricar as 
laminas atraves de passos padroniza- 
dos de processo (difusOes, oxidates 
etc.) e armazenar as liminas para futu- 
re defini^ao da metalizaf&o. Por essas 
caracteristicas os gate arrays constituent 
um estilo de projeto muito ripido e de 
minimo custo. 

As FPLA (Fuse Programmable Logic 
Arrays), assemelham-se tecnologicamen- 
te is PROM e sio compradas como cir- 
cuitos standard. A complexidade atual 
das FPLA e limitada a poucas centcnas 
de portas e sofrem de problemas de ve- 
locidade 

aplica<;Oes de circuttos 

DEDICADOS E SEMIDE DIG ADOS 

A revista VLSI Systems Design, cm 
sua edi^fo de setembro de 1985, publi- 
cou o resultado de uma pcsquisa, reali- 
zada em julho de 1985, junto a 90 pro- 
jetistas de sistemas, conccrnente i utili- 
za?io de circuitos dedicados em seus 
projetos. Os principals resultados sao 
transcritos a seguir: 

• Quanto is ireas de aplicafOes, 60% 
dos circuitos destinam-se is industrias 
militares, aeroespaciais, de computado- 
res e perifericos; 

• Quanto aos estilos de projeto e 
considerando tanto projetos existentes 
bem camo os novos, os circuitos realizados 
com gate arrays superam as standard 
cells na propor^So de 3 para 1 (601 gate 



arrays x 175 standard cells); 

• Independcntemente do estilo de 
projeto, mais de 70% dos sistemas pos- 
suem entre dois e quatro circuitos dedi- 
cados por sistema As funpOes desempe- 
nhadas por esses circuitos sio as mais va- 
riadas, salientando-se logica aleatona, 
imidades 16gicas aritmeticas, UCP ou 
controladores e codificadores/decodifi- 
cadores para interfaces de transmissio; 

• Do ponto de vista tecnol6gico, 
cada vez mais, os circuitos CMOS fir- 
mam-se como a tecnologia apropriada 
aos circuitos LSI, sendo esta tecnologia 
utilizada em 75% dos projetos analisa- 
dos; 

• Finalmentc, em termos de comple- 
xidade, 30% dos gate arrays possuem em 
tomo de 1000 portas equivalentes e 30 
em torno de 2000 Quanto as standard 
cells, 60% dos circuitos estio distribuf- 
dos entre 1000 c 3000 portas equivalen- 
tes. 

A sitlia<,’Ao hk asileira 

A situafio brasilcira nos apresenta 
duas realidades: a realidade do projetista 
de sistemas. isto t, do usuirio em poten- 
cial, e a realidade dos fornecedores de 
circuitos integrados dedicados no Brasil 

O universe do usuirio em potencial e 
caracterizado em linhas gerais pelo des- 
conhecimcnto do que sejam Cl dedica- 
dos, e, portanto, quais as vantagens que 
proporcionariam aos seus sistemas e 
pelo desconhccimcnto da possibilidade 
de projcti-los no Brasil. Faz-se, pois, nc- 
cessirio um intenso trabalho junto ao 



usuirio no sentido de informi-lo do que 
existe e convence-lo das vantagens dcssa 
nova alternativa. A repida expansio da 
mdiistria de microcomputadores. par- 
ticularmcnte dos fabricantes dos com- 
pativeis com IBM -PC, tern levado os 
projetistas a se defrontarem com placas 
que nio sio mais passive!* de c6pia, 
uma vez que seus circuitos nio estio dis- 
pom'vcis no mcrcado (o IBM-PC AT pos- 
sui ao menus dois chips de propriedade 
da IBM). 

Do lado dos projetistas de Cl dedica- 
dos, o Brasil dispde de empresas capaci- 
tadas ou buscando capacita(io na irca. 

A titulo de exemplo, a ITAUCOM 
esti totalmente capacitada para o proje- 
to de circuitos dedicados, possuindo, 
dentre outras. lamilias de gate arrays 
com capacidade de integra^io de 500 a 
4000 portas equivalentes; familias de 
standard cells single e double metal, 
bem como ferramentas computacionais 
suficientes para o desenvolvimento de 
circuitos full-custom. 

Acreditamos, pois, que essas duas 
realidadcs, a dos usuirios e a dos forne- 
ccdores de Cl dedicados, hoje dissocla- 
das, virio a sc encontrar muito proxima- 
mente, propiciando um fortalecimento 
substancial pare o desenvolvimento da 
informitica no Brasil. 



Jot* Roberto d« Almeida Ameionat *Cng+ 
nlteiro Eletrdmco. com mestrado am Eng* 
nhana E l*t nca pela Etcola Politic me* da Uni- 
mrndad* da Sio Paulo (EPUSPI. £ tambtm 
Especmhtta am Rtdiocomumcacdat pala Eco- 
le Super iaura d'Electricit * — Paris. Atualmen- 
te, * Engenheiro da Projetos da ITAUCOM a 
Protestor Assistente da EPUSP. 



O MAC 512, da Unitron 



Um dos equipomentos que possui 
motor rtumero de customs chips (8) e 
o Macintosh, da Apple Computers, 
e que em breve possuira um similar 
nacional, produzido pela Unitron, 
apresentado ao publico na ultima 
Feira Internacional de Informdtica. 
Os customs chips sio circuitos integra- 
dos dedicados, isto i, feitos sob enco- 
menda, e uma vez prontos e impossi- 
vel abri-los, o que toma extremamente 
dificil qualquer cdpia. Segundo o Di- 
retor Tecnico da Unitron, Vilmar L. 
Gaertner, o estudo de viobilidade da 
fabricafao do Macintosh comefou an- 
tes mesmo do lanfamento do prtmeiro 
PC no Brasil. Mas. apenas ha cerca de 
um a no, um grupo de engenheiros es- 
pecialmente contratados pela empresa 
comefou a analisar os customs chips 
do equipamento. Para tanto foi utili- 
zado o sistema de tecnologia reversa: 
ou seja, partir do produto acabado 
para descobrir como se chegou a ele, 
no caso. simulando o circuito integra- 



do a partir de suas entradas e saidas. 

A andbse seguiu cam in ho s diversos, 
de acordo com o tipo de component e 
em questdo. Alguns tiveram suas tabe- 
las de entrada realimentadas com 
inianeras varidveis, durante dias, pelo 
computador AP II da propria Unitron, 
simulando os CIs. Os dados armazena- 
dos em disco, exaustivamente estu- 
dados pelos engenheiros, deram origem 
a mapas imensos, buscando redesenhar 
os customs chips Em outros, o ponto 
de partida foi a funydo que desempe- 
nham tais circuitos. aliadasao software. 

A parte tecnica do novo micro 
de 32 bits, compativel com o Macin- 
tosh - e com lan^amento previsto para 
maio - ja esta pronta. Os chips fabri- 
cados sob encomenda, desenhados a- 
qui, jd estio sendo fabricados por uma 
empresa norte-americana, que a Uni- 
tron preferc ndo divulgar o nome. 
Tecnicos brasileiros, treinados tambem 
no exterior, estio participando de par- 
te do processo de fabricatfo, nos EUA. 



Segundo Vilmar L. Gaertner o 
fabricante que nio contar com enge- 
nheiros capazes de projetar circuitos 
elctrdnicos dedicados nio terd condi- 
(des de competir no mercado brasi- 
leiro e muito menos no exterior. 

Ainda segundo o Diretor da Uni- 
tron, a opfSo pelo Macintosh deveu-se 
ao fa to de ser dificil copia-lo, o que 
nio significa que outros nio possam 
chegar Id. "Se houver mais um ou dois 
fabricantes, send ate melhor em termos 
de comparafio mercadologica ", justify 
ca Vilmar, ressaltando porem que a 
Unitron i uma empresa pequena e 
muito agil, conseguindo, assim, fazer 
produtos baratos, de qualidade. 

Alem da protefio, desenhar o seu 
proprio circuito oferecera, de acordo 
com a Unitron, vantagens, tais como: 
aumento da confiabilidade do produ- 
to, performance, rcduqio do custo 
para grandes quantidades e necessida- 
de de menos mio-de-obra, para pro- 
dufio em massa. 
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DHunu — ar 1 

Microl6gica Tel (0142)23-6142 
BELO HORIZONTE - MG 
ComputronixTel (03 1 1225-3305 
Digilogica Tel. (031 1223-4966 
CAMPINAS - SP 
Soft En Byte Tel. (01 92) 52-6369 
CAMPO GRANDE - MS 
New Line Tel. (067)382-0682 
CATANDUVA - SP 
Catanduva MaqTellOl 75)22 6 1 67 
CURITIBA - PR 
CSR Tel. (041)232-1750 

FERNAND0POUS - SP 
Compshow Tel. (01 74)42-1697 
FORTALEZA - CE 
Siscomp Tel.:(085)244-491 1 
GOlANIA - GO 
Soft New Tel, (062)224-9322 
GOVERNAOOR VALADARES 
Computron Tel (0332)21-8412 
NATAL - RN 

Maximicros Tel (084)222-8918 
POCOS DE CALDAS - MG 
Micro Popos Tel. (035)721-1883 
PORTO ALEGRE - RS 
Hercos Tel. :(0512)25 4923 

RECIFE - PE 

Croma Tel. (081 1325-3493 
RIO OE JANEIRO - RJ 
Sinclair Place Tel. 1021)549-2699 
Sisteco Tel. (021 1220-9613 
SBC Micro'sTel. (011)448-6234 
SAO PAULO - SP 
Cindtica Tel. (01 1 ) 36-6961 

Benny Micro Tel. (01 1)570-1555 
Bo Isa do MicroTel. (01 1)93-1 102 
Citty Micros Tels.(01 1)831-0944 
Iguatemicro Tel.:<01 1)81 5-970 1 
Garra Tel. (01 1)884-3042 

NC Micro Tel. (01 1)533-4388 
Opus Tel. (01 1)273-5757 

Provac Tel. (01 1)274-5861 
Tropical Tel. (01 1 1543-9859 
Sisec Tel. (01 1)283-0853 

Cistec Tel. (01 1)288-5413 

SOS Comp. Tel. (01 1)826-0466 
SAO VICENTE - SP 
Alta- Re sol. Tel, (01 32)67-2496 
TAUBATE - SP 
Ensicom Tel. (0122)33-2944 
SAO CARLOS - SP 
HDG Tel (0162) 72-2449 
ARAQATUBA - SP 
Produza Tel, (0186) 23 0519 
ribeirAo PRETO - SP 
Datadados Tel . (0 1 6) 635-233 1 
UMUARAMA - PR 
CBM Tel. (0446)23-2233 

VITORIA - ES 

Casa dos Tel, Tel. (027)222-501 n* 
Composoft 222-5758 
WR Comp (02 
2253 1 44 



Diskettes 5 1/4" caixa com 
10 unidades FS/DD.ePD/ 
DD. 

Formulario fioiitfnuo 1 via: 

— 80 colq^JMmln.). 

- 132 colunas (milh.). 

Fita: spars irffpressora: P-500, 
P-720. P 740. 

IWS&bara computadores. 
Estabilizadores de tensao: 
0,8 kVA- 1,5 kVA. 



DIRETO: (011) 220-5794 
• Consertos, contrato de ma- 
nutenplo, pepas de reposi- 
pao (condip6es especiais p/ 
ass. t^cnica). 



• Placa expansao de 320 kby- 
tes, expandindo late 640 
kbytes de memoria RAM 
para SP-1 6^j 

• Placa de CP/M para SP-16 
com 64 kbytes Transforma 
restante aa memoria em 
RAM DISK. 



• Software video texto para 
CP-500. 

• Software video texto para 
SP-16. 

• Modem EMBRACOM. 

• CP-532C (RS232/CP500). 

• Serial 300. 

• Joystick CP-400. 

• Placa CP/M para CP-500 M. 
80 com 128 kbytes RAM. 

• Cabos de ligapSo micro/im- 
pressora. 



• Placa rede de comunicapSo 
NCT-7301, para interligar 
v4rios SP-16. 

• Placa emuladora de terminal 
IBM 3278/3279 NCT-7101 
PCOX. 

• Placa emuladora de terminal 
IBM 3278/3279 NCT-7201 
I RMA. (prepos sob consulta). 



• CP-500 022D-M80, 1 drive 
FD/DD, DOS- 500, CP/M 80 
colunas. 

• CP-500 023D-M80, 2 drives 
FD/DD, DOS-500, CP/M 80 
colunas. 

• CP-400 color II 64 kbytes. 

• CP-200S, 16 kbytes ( p re co s 
sob consulta). 

l&i 



• DATAFLEX: 

— Gerador de banco de dados 
relacional. 

— Multi e mono usuario 8 e 16 
bits. 

— Gera aplicativos como: con- 
trol de estoque, contas a 
pagar e receber, cadastro de 
cliente, mala direta, folha de 
pagamento, etc. 

(Prepos sob consulta) 



(*) IBM e marca registrada da 
International Business Ma- 
chine. 



• P-500S paralela ou serial 
150 CPS, 80 colunas, carac- 
teres normais, comprimidos 
e expandidos, grafico com- 
patfvel com MX-80. 

OBS. : compati'vel com APPLE, 

EXPERT, "HOT BIT, SP-16, etc. 

• P-720 paralela e serial 200 
CPS 132, colunas e compa- 
ti'vel com MX- 100. 

• P-740 paralela e serial 400 
CPS, 132 colunas. 

(prepos sob consulta). 



• VERSAO I 

2 drives, slims, FD/DD, 
320 kbytes 

• VERSAO II 

1 drive FD/DD, 320 kby- 
tes, memoria RAM e Win- 
chester 5/10/15 Mbytes. 



••-Vi 

£ U > 

(prepos sob consulta) 



ASSISTENCIA 

TECNICA 



SUPRIMENTOS 



PLACA 
EXPANSAO 
P/ SP16 



COMPATIVEL C 
IBM PC/XT 



COM 



SP16 



PROLOG ICA 













JAMES. M.. PASCAL para 
Micros. Editors Campus. 

0 livro introduz o usuArio ao 
uso da linguagem Pascal, permitin- 
do qua qualquer pessoa com pou- 
co conhecimento de computagao 
seja capaz de compreendb - lo. 

Assim, os capi'tulos 1 e 2 in- 
troduzem idAias gerais de como 4 
um programs Pascal, nos dois 
capitulos seguintes sao mostrados 
os b locos fundamentals da lingua- 
gem; e no quinto capftulo. o 
autor explica como ela A 
usada e como sao escritos os pro- 
gramas. 

A partir daf, o livro apresenta 
outras caracteri'sticas mais avanga 
das do Pascal, trazendo, em dois 
capi’tulos, programas completos 
com comentdrios e exemplos. 

BOTELHO, C. A.. BASIC 
Prttico. Editors McGraw- Hill. 

Em BASIC PrAtico, o autor 
procura introduzir o leitor na pro- 
gram agio de micros de maneira 
informal. O livro A dirigido espe 
cificamente aos usuArios do Apple 
II e contAm explicagbes sobre to 
das as instrugSes entendidas pelo 
equipamento (foram omitidas ape- 



nas as de uso profissional, dado o 
carAter introdutbrio do livro). Sao 
quatro as partes principals da obra; 
IntrodugAo aos Computadores e 
As Linguagens de ProgramagSo; 
BASIC BAsico; BASIC Avangado e 
ConclusAo. 



CLAYBROOK. a C.. Tien, cat de 
Gerenciamento de Arquivos, 
Editors Campus. 

Destinado a estudantes e pro 
fissionais de InformAtica, o livro 
aborda o gerenciamento de arqui- 
vos. enfocando principalmente as 
orgamzagOes de arquivos e OS at 
pectos de hardware e software 
envolvidos na criagio e manipu- 
lagflo dos mesmos. 

Os capi'tulos tratam de assun- 
tos como Estruturas comuns de 
arquivos (sequenciais; sequenciais 
indexados; e de acesso direto); 
Organizagbes com estrutura de Ar- 
vore e de lista; Sistemas de arqui- 
vo; Classificagao; Protegio; e In- 
trod ug So aos sistemas de banco 
de dados. Ao final de cada capf- 
tulo sSo apresentados exerefeios 
para revisSo do assunto abordado 
e tambdm uma relagao de refe- 
rAncias que serve como material 
suplementar. 



NETO, A. M. M„ Lotus 
1 -2-3 /dBase III, Editors Atlas. 




O pnmeiro livro A uma espbcie 
de manual do Lotus 1-2-3 e visa 
apresentar de forma simplificada 
como ette software pode facilitar 
o acesso e a manipulagSo de dados 
nos micros compatfveis com o 



IBM-PC. SSo abordados tbpicos 
como Sistemas de ComputagSo, 
Planilha de CAIculos, Conceitos 
bflsicos do Lotus 1-2-3 e Aplica- 
gfies prAticas. 

Outro langamento da Editors 
Atlas 4 o livro dBase III, que pro- 
cura ensinar, em prinefpio, o 
usuAno a operar diretamente com 
arqutvo de dados e. potteriormen- 
te. mostra a opgao de trsbalho 
no modo programado. sem a 
interfere ncia do operador. Centre 
os temas abordados na obra, 
podemos destacar: Gerenciador de 
banco de dados; Conceitos bAsi- 
cos do dBase III; AnAlise dos co- 
mandos e fungoes e Aplicagbes 
prAticas. 



ENDERECO DAS EDITORAS 



Editors Atlas — Rua Conselheiro 
NAbias. 1 384, CEP 01203, tel.; 
(011) 221-9144, Campos Elfsiot. 
Sao Paulo; 

Editors Campus — Rua BarSo de 
Itapagipe, 55, CEP 20261. tel.: 
(021) 284-8443, Rio de Janeiro; 
Editors McGraw-Hill — Rua Ta- 
bapuS, 1105, CEP 04533. tel.: 
(011) 280 6622. Itaim Bibi, SSo 
Paulo. 



Quem tem tradkao 
em software, tem tudo. 












A NASAJON olerece assistbncio 
teenies total garantia permanents e 
mantem i sua disppsigio 
programadores e analistas para 
desonvotver sistemas especiticos sob 
encemenda Conte com a NASAJON 
SISTEMAS 



Fez a Folha de Pagamento de sua 
empresa. emdmdo relator ios como 
Quia de IAPAS. Guia de FGTS. Relagao 
de Empregados. Relagao para I.R.. 
Relagio para Banco. Inlorme de 
Rendimentos. Acumulados Anuais. 
RAIS e Recibo de Pagamento. A folha 
pode ser aemanal ou menial. At 
tabelas slo modificadas pelo prbprlo 
usuArio 

Permits tambem adiantamentos de 
salArio. reajuste salarial. alteragbes de 
Kumulados a outras lungbes que 
agMtzem o processamento da Folha de 
Pagamento da empresa 



A Contabilidade de um mis em apenas 
2 horas! Este Sistema permrte o 
cadastramento de histbricos 
padromzados e de piano de contas 
com ate 5 niveis. 

Emits Diario.Razio. Balancele. 
Balango. Damonstraglo de 
Resultados. DemonslragAo de Lucros 
a Pre)uizos acumulados Listagem por 
centro de custo e eitrato de contas. 
antra outras lungbes 



Controls o estoque de dens com 
Especilicagio. Estoque Mimmo 
Unidade Fornecedor. LocalizagAoe 
outras mtormagbes relacionadas no 
item como Custo Medio. Entradas e 
Saidas no periodo. etc. 

Fornece Listagens Geral e Parcial dos 
produtos. Listagem Fisico-Fmancelra. 
Listagem dos produtos abauo do 
estoque mtnimo. Lista de Pregos e 
Etiquetas. entre outras. 

Admits tambem Reaiuste de Pregos 
AReragbo de Dados e Eiclusio de 
Produtos 



^nO/CMOA 



Av Rw Branco 45 - Grupo 1311 
Rm de Janeiro - CEP 20 090 
Toll (021)263-1241 0 233-0615 



CompHivttt cam ji hnhai TM-10 • Applt T amb«m oisponmais pari I0M-PC PiKurt n*i para maiores mtormagPes 



l«»nu Hum a assrsmo 






ENERGIA DE 
EMERGENCE PARA 
MICROCOMPUTADORES 




GERATRON sempre foi a 
solupao ideal e economica para 
alimentapao de emergencia de 
microcomputadores da linha 
Apple e TRS-80. 

Agora voce tem disponivel o 
GERATRON PC 500. Com 
potencia de 500VA nominal e 
1 500VA de pico e dotado de 
chave de transference estatica 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compativeis com 
IBM-PC, na configurapao mais 
completa. durante varias horas 
apds a falta de rede eletrica. 

Mas se voce precisa de mais de 
500VA, a GUARDIAN tambem 
dispde do modelo 750. 



GERATRON e marca 
registrada da GUARDIAN 

EOUIPAMENTOS ELETRdNICOS LTDA. 
MATRIZ 

Rua Di Gamier. 579 - Rocha 
CEP 20971 Rio de Janeiro RJ 
Tels Geral (021) 2616458 
Vendas (0211 2010195 
Telex (021134016 
FILIAL 

Alameda dos Ubiatans, 349 
CEP 04070 S3o Paulo. SP 
Tel 10111578 6226 




ENERGIA A TODA PROVA 







Linha APPLE 



Canario 

Rodando este pequeno programa, 
um efeito sonoro semelhante ao can- 



do. 






10 


FDR X 


■ 0 


i i 


POKE 


1234! 


12 


NEXT 




15 


DATA 


173 


16 


DATA 


198 


17 


DATA 


24* 


20 


N « RND ( 




< 1 > 


* 66 


21 


FOR X 


* 1 


22 


CALL 


1274! 


30 


END 





Arthur Luiz M. Bezerra ■ CE 
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Linha TRS-COLOR 



Mudando o teclado 

Devido ao tamanho das teclas, um problema que costuma acontecer aos 
usuarios do CP 400 que digitam muito rdpido (ao menos acontece comigo) 
e apertar acidentalmente o zero ao inves do parentese; isto inverte os carac- 
teres e obriga a apertar SHIFT e zero novamente para voltar ao normal. Para 
evitar tais perdas de tempo durante a digitafSo de programas longos, entre 
com POKE 282, 1 ; dessa forma os caracteres permanecerSo fixos no modo 
normal. Ou enttfo voce pode fazer um INPUT diferente, onde os caracteres 
da string (aten?3o! somente de A a Z) entrem em modo inverso; 6 s6 incluir 
POKE 282, 0 antes do INPUT. Em ambos os casos, POKE 282, 255 retoma 
o micro ao mbdo normal. 



Envie suas dicas para a RedapSo de 
MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 
Janeiro, RJ. CEP 20030 



Cldudio Costa - RJ 



Linha APPLE 



POKEs no Apple 

Com os POKEs abaixo, um 8< seguido de RETURN seri interpre- 
tado: 

= >como LIST POLE 101 3, 76: ROLL 1014, 165: RC1KE 10:0,211 

■ >coii»o RUN POKE 11913, 76: POKE 1014, HB2; POKE 1015,213 

->como CALL-151 POKE 1013, 76:POKEltfl4, 105! PU 1 ElfllS, 255 

»>como HOME POKE 101 3, 7o: POKE 1014,00: POKE 015,252 

* ;>como PRINT CHR* (7) ..POKE 1013, 76SP0K E 1014, 228: POKE 1015,751 

Com estes tres POKEs, o acionamento de RESET ser5 interpreta- 
do: 

->como RUN POLE 1 010. 103: POLE 101 1 , 31 3: POLE 1012,11 



Bruno Lopas F. Cabral - PB 



Linha TRS-80 



PEEKS no TRS-80 

Use os PEEKs abaixo em seus programas: 


PETEI 


, 


a S»»r4 77 se o micro tor mOdelo 111. 


TF.FK 


< i /» r**6 ) 


*» > SerA 2l?*l tie >ttl v»r em BASIL' resident*. 


P E El 


< 1 *4l*9> 


» SerA lit «e □ teclado estiver em mat used er.. 


PEEK 


<16412) 


■ Snr4 0 se o cursor tor pisrante. 


PEEK 


( 16419) 


» > Cnnt4m o cddigo ALiC I I do cursor. 


PEEK 


< 14312) 


AMD 2‘lpi • Cer A 4R sp a impr^ftorn fsM ver pronta. 






Bruno Lopes F. Cabral - PB 



Linha TRS-COLOR 



Toque de elegancia 

Esta dica, para os usuarios da linha TRS-Color, consis- 
te em dar um toque de elegancia na impressao de uma 
mensagem. £ parecida com a dica de Jorge Pablo Zapata 
Rivera, publicada em 

UC „o O nara a li. 20 F0K F -0 r0 > 00 0 :next f:cls 
mo II V J L, pdrd d 11 - 30 LINE i NPUT " WENSAGEM "IAS: CL6 

nha Apple, com o no- ™ a-lenia»>:c -2 
me de impressSo pro- 60 b*»midka»,t, n 
fissional. 70 print#c-i.b»schr» 12071 

100 SOUND200, i:C-c.i:next t 
110 GOTO 20 



TSrcio Nary ■ BA 



Linha MSX 



Efeitos com Circle 



Veja os efeitos produ- 
zidos com o Circle nesse 
curioso desenho grafico. 



“5 REM RfCARDtl HUNSEHE 
(•151 2 ) 40.7.0.87 
1 0 SCREEN* : F~1 : COLOR 13,1 
2') f Ok X-lTOVti 
30 C 1 RCL E ( 1 20 , t O0 > , F 
47 K-F>1 : next;: 

50 ooroso 



Ricardo Hunsche - RS 



Linha ZX SPECTRUM 



Caleidoscopio 

Execute este progra- 
ma e observe o interes- 
sante movimento de 
formas geometricas co- 
loridas proporcionado 
por esse caleidoscopio 
na tela do seu micro. 



5 EORDBC 0 OUEP 1 
10 _ET 6=5. INT i PND.l 1 i 
20 FOR N=B TO 65 STEP 3 

30 plot n n 

AO LET h»i*N 

50 CRflU 255-A 0 DRAW 0,175-A 
[Phu -i55*A 0 DRAU 0 -175tA 
50 Plot 125-N N 

"'O C-PA'J A 0 DRAU 0.175-A DP A 
.. -A 0 DP Au 0 -175tA 
30 INK PND*- 
SO NE*T N 

100 IIPClC li' 36.5#INT «RND*iS 

105 PAU3C tC 
110 00T0 10 

M*rcio Jos* de Carvalho * PA 















Linha MSX 



POKEANDO 

Para quern possui um com- 
pativel com o MSX, aqui vao 
alguns POKEs que irao ajuda- 
lo no confeccionamento dos 
seus program as 

1. POI E 62384, N 

o tabulamvnto horirontil 
mtmelhante a WIDTH. 

(mini mo 1 o mix 1 me 40) 



2. POPE 61 38* . N 



fo: o *• ab<*l omer.t o 
(miniao C* e mi i mo 24> 



3. »'OKE 62428. N 



Coloco o curtor na lifih* H. 
(mini mo £» e mi i mo 24 > 



4. POKE 62429. N 



Color* o cursor no colon* N. 
(mini mo I e mi: l mo h.») 



3. POP E 6468 1 , N 

So N for qu.ilqut*- valor, 
•xcoto 0, o cor\or iri 
*|-ar»cor apbm uma iH>r«t*>o. 



6. PtH E 64687 , N 

So N 4 or qua 1 qua" valor, 
«' coto 0. mb podti in mor 
idiprewas letram maiumcitlan. 

7 „ POKE 64607,753 

Esonui a um Cl. 8. So r ut i v,»r %n<> 
uma linha dc* pn.qr umac Jk>, *» 
CIS lori «*>rocLiK.*dn ..pc'.* i I ill 



0. Para fiiaiirar , nr,r* a rot in* 
at>ai o pdfn rn ■inic *• 1 1 ;«• < 

ci ctM,- . 

Id TOP A=^t»400* TO 637.73* 

2P » U» E A« 2 

d fJP * 7 A 



Jorge Pablo Zapata Rivers - BA 
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Linha APPLE 



Quadrados 

Experimentc esta dica e tente 
acompanhar o desenho formado 
por uma s^ric dc quadrados. 0 efei- 
to visual i bonito. 

10 FOR N • 760 TO 77/: READ I: POLE 
N,l: NEXT : PO E 232, us PO E 
233, Z 

20 DATA 1.0,4,0,5b. 36,43.54,7,0 
30 HGR2 

40 HCOLOR- RNO < 1 ) • 6 ♦ 1 
50 FOR S - 20 TO 50 
60 FOR N • 0 TO 16 STEP 2 
70 ROT- N: SCALE" 9: CRAW 1 AT 1 
40,90 

80 SCALE- 51 - S: I DRAW I AT 140 

.9u 

90 SCALE- S ~ 10: I DRAM 1 AT 1 4o 
.90 

100 NCXT : NEXT 
110 GOTO 40 



Eduardo Eiji Araki • MG 



ZX SPECTRUM 



Novas cores no TK90X 

Consiga com esta simples di- 
ca, cerca de 200 padrOes colori- 
dos em seu TK90X. 

;c foe F.i r* i ,op o»o re ~ 

P OP H ■ 0 T j — 

20 FG-INT Ink G PAPER n. A& 

30 T4 C • T n FOP MsO TO J ““ 

40 PRINT INK G PAPER m EE " 

50 NE • T A N E*T G EPIGHT I r 1 

EXT f 

Nas linhas 20 e 40, os carac- 
teres grifados devem ser redefini- 
dos conforme o desenho abaixo: 




h 40 UCG 



Jojocc 



e 4o ucc 



Gllbarto Figu.ira da Fonseca ■ RJ 



Linha ZX SPECTRUM 



Atributos via teclado 

N3o consta do manual do TK90X que, se. com o cursor E digitarmos um 
numero sem, CAPS SHIFT, podemos definir o paper (de 0 a 7), Bright 0(8) e 
BRIGHT 1 (9). 

Experimente digitar, por exemplo: 

H!i REM (C/fjlUFT ♦ B/SHirT> 4 tC/BHIfl ♦ E/BHIFT) 9 
"EX1MIIU" (C/SHIF1 «■ S/SH1KTI U (t./EHItt « B/SM1KI) 7 
"EXEMF'LO II" 

OBS.: Execute o que estiver entre parenteses e digite o restante. Veja o 
resultado no video. 



Fllvio Massao Matsumoto - SP 



LINHA ZX81 



Tecla secreta 

Se desejar proteger um programa de “olharcs indiscrctos” tente a rotina 
1 abaixo. 



Linha 



Desabilitando o BREAK 



Para desabilitar o uso do 
BREAK (CTRL ♦ STOP) em um 
programa use este exemplo. 

lO SI OR ON 

30 on stop bosuh loo: GOT (J . • 1 

30 PRINT- MICRO SI3IEMAS 1 
4n END 

i'Xj CL l>: PR I NT "U<*« ttntat i v j -1*. u 
REA» foi 

11 U FOR 1-1 TO 20001 NEXT I 
1/0 RETURN 30 

A linha 10 habilita o uso do 
comando ON STOP GOSUB. Na 
linha 20 hi um LOOP que termi- 



nara ao ser acionado BREAK, 
operando a mensagem da linha 
100, e na linha 110 ha uma pausa an- 
tes do retomo a linha 30. 0 END 
da linha 40 4 sd para a rotina 
nSo entrar em LOOP novamente, 
ao usar esta rotina em seu pro- 
grama utilize apenas os coman- 
dos da linha 10 e 20, sendo que 
na linha 20 o GOTO 20 pode ser 
dispensado. 

Sergio Augusto Freire de Souza ■ AM 



i PAST 

SCC0 JOVE CCOG 

S001 core i«*13 SJ0-(INrE.»a c 

jaoa goto i 

Assim, o comando FAST da li- 
nha 1 ser4 substituido por um 
NEW, a nSo set que a tecla “C” 
(pode ser qualquer outra) esteja 
pressionada no exato momento da 
entrada do programa. Isto nao 6 
uma protefSo contra c6pia e sim 
para que s6 voce possa rodar de- 
terminados programas. Lembre-sc 
que a tecla cscolhida deve ser 
apertada um pouco antes do pro- 
grama entrar na mem6ria. 



Edgard Santos Rocha - RJ 











REPRESENTANTES AUTORIZADO 



Iran m OCXS OHM 'ItCW^!' IIWHU tIM I 

M uvaat K rtlta '*'■ mr. mr I 

:rr ::*:i t» K .m k li 



Para sua maior comodrdada 
a ATI Editora Ltda coloca a aua 
disposigio o* aagulntaa enderego, 
da sous rapresentante* 
autorizados 



RIO DE JANEIRO 

Av Pres Wilson, 166 gr 1210 
CEP 20030 RJ 
Tel. 10211 262 6306 



SAO PAULO 

Rua Otrvewa Dias. 153 
Jardim Pauiista 

CEP 01433 Tel 10111853 3574 



PORTO ALEGRE 

Com. Rep Odilon Ltda 

Rua Mol. da Patna, 323 C| 308 

CEP 90000 Tel : 105121 24 8200 R 309 



Aurora Assessoria Empresanal Ltda 
Rua dos Andradas, 1156 sala 1006 
CEP 90000 Tel : (05121 26 0839 



NORDESTE 

Marcio Augusto das Neves Viana 
Av Conde da Boa Vista. 1389 tSrreo 
CEP 50000 Recite To! 222 6619 



BELO HORIZONTE 

Maria Fernanda G Andrade 
Caixa Postal 1687 
Tel (0311 336 6645 



AV. ALMIRANTE BARROSO. 81 - L|. C * 
Tels.: 262-9229 - 262-9088 - 240-8410 
CASTELO - RIO DE JANEIRO 



t m m m 

if) B n 

• ® m m 



p/os coHNTfviis cm ami i ?■>•«• 



CUftSO DC MSIC PROGRAM AVAMCADO 
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EIEVL0S PiftTICOS E DCSOltft MS 
IRS’HJCfeS DC RICtflPRQCSSSAMR *512 
DUE PODERAO SEI mi CAMS IP DUAL 
9UER COMUTADO* DUE TERM ESI! 
P1CR0PR0CC SSADOR.ESTE UVM POM 
SER USADC PON UM PISSOA DM NUNC A 
PROfiRAPOu ANTES 0 ASSIPR1IR. 



MMISIV 



DOM I N E 0 SEU 
COMPUTADOR 
COM OS LIVROS 

MICROKIT 



77 PR06RAMAS PARA l INHA TRS 



CP5M/4M/JM/D6TIK 
TRS COLOR E 0UIR0S 



VQLi COMMAS IIIR 

PUHCAIOS VI VMM PMPICIRN 
0 SEU KSENVMVIMNTO CM 

PPO0HMAMN.IUP M IIMITl-il 



J1 PRNMM5 PAM A LIMA imi 

P/OS CMATtttlS COR Am I E It 2fM 

*. EMCAO C2I 6a. ## 

ATRAVfS M JOtOS E PR06RAPAS EDUCA 
T I VOS VOC* SERA INDU71D0 A PERSAN, 
RESOLVER PROBLEMS, E TQMP COHNE 
Cl PEP 10 DE CORO PODCRA OSAR MR 0 
COPPUIADOR.OE FORM SIPPLES E DI- 
VER M PRO- Sf. 



CMHti«if cm vni i umm 



i • » i vm* cavu i* i 

m mmu nM > HP 



* ’ -?!C *€ Lit » l » 



piu^MM.cRT mi m tt’«a i i‘i,.’pw ■ mmivh.cmmtm ■ 
canes «ua* qiipii* cm leiufe a uimm 

arutm i canai a «ua«. 



USANDO 0 VISIPIOT 

2. ED. I '7.## 

0 AUTOR FAZ UPA ANAL ISC COPPIEIA E 
EIEPPL1F ICADA DO PR06RAPA VISIPIOT 
ISAAC ICOSI E POSTRA CORO T IRAN DA- 
DOS, OU SCJA, INTERA6IR, COR 06 
PR06RAMS VIS I CALC E SUPCRVISICALC 



v\V 

^ CURSOS 
0 <# DE . 

V COMPUTAQAO 



— Cobol 

— Dbase II 

— Basic - Basic Disco 

— Basic Total 

— Visicalc 

— Redator de Texto 

— Computapao pi crianpas 

Rua Sao Sebasliao, 360 523 8492 
Alto da Boa Vlata 
Proximo A EstAtua Borba Gato 



COMPUTApAO E INFOHMATtGA LTD* 



APRESENTA 



SOFT MSX 

APLICATIVOS 

JOGOS 

EDUCATIVOS 



provmmai 

(•w trcfit 



PARA 

PROBLEMAS 

TECNICOS 

USE 

A CABECA 



TUDO EM MICROS 

Cursos — Hardware 
Suprimentos — Soft 



ATENDEMOS TODO 
0 BRASIL 

SOLICITE CATALOGO 



AV. CASTELO BRANC0.800 
S. 106 — CEP 65075 
FONE (098) 227-1615 
SAO LUiS — MA 



k .< x O BEL-BAZAR 
ELETRONICO 



onde voce AINDA 
encontra pretjo 
e qualidade 
de ANTIGAMENTEI 



uSMto o tssfiatti 



PARA PROBLEMAS COM MATERIAL DE 



DESENHO - PINTURA - ENGENHARIA 
- PAPELARIA - ESCRITORIO MAQUINAS Pi 
ESCRITORIO E SUPRIMENTOS EM GERAL 



















MS 



SEIHJPS 



HflPIDWPiRE 



TRS-80 (CP500] 
APPLE GRAFT II 




TODOS 



PERIFERICOS 



VENOM 

Oa melhores pre goe do morcado. Comprove! 

Garantia do Fabricanta + Assist. T*cn. Parmanante 

ASSIST. TECNICA 

Raalizada por ex-funcionArios das fAbricee: IBM-PROLbGICA- 
GRAFT 

Garantia, eficAcie a rapidez 

Menutenpio contratada ou esporAdica 

labor atdrio complato - FABRICAQAO DE PLACAS 

CURSOS 

Manutanpio do microe a pardAricoa. Microprocaaaadoroa 
Z80-B08S/B0-S 502-6800-80 88-B088-SB000. Digital I a II 

PROCURE QUEM BABE! 

Rua Sampaio Viana, 232 - Rio Comprido (021) 234-7873 



Urn CLUBE MUITO ESPECIAL 
Para usuarios cl os equipamentos 
TK-85, TK90X, CP-400, CP-500 
e compativeis 



J'C'tOUl ■ 
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L NOVA FASE 1966 

VOCE RECEBE, INTEIRAMENTE 
08 CRAT1S: 

_ Um curso completo d<* program,! (.An d«* |ogO$ 

— Edi(6es Mensais do Compuclub 
News, com program** de )ogo*, 
aplicativos e dicas especial* para o 
seu equipamento 
— A cada 45 dias, programas 

amplamenir documentados, com 
seu* manuals de in*tru(lo, 
gravados em fita HOT LINE, a 
melhor op^io para o seu acervo de 

so^t*. rT 

psin 

Associando-se agora, voc4 ainda 1 

recebe os 5 bolelins jl edit ados pHo 
dube, induindo o especial 
dezembro/85 

Soliate, ainda ho)e, informal bet 
detalhadas acerca de como partiapar 
do COMPUCLUB. Nio *e esque^a, 
porem, de indicar otipode micro que 
voct possul 

COMPUCLUB — Caixa Postal 46 136570) Vlgou-MG 



0 “PAC0TA0” OFERECE: 



i® A 



Micros 

• Software 

• Assistencia T6cnica 
IBM/PC, XT e AT 
'“*P" 

0 • Suprimentos 

^ • Acess6rios Peritericos 

CONSULTE 
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O Macintosh colocou ao alcance de muitos usuarios 

recursos como janelas e icons, que ate entao eram privileges de um 

grupo bastante restrito de programadores. 



Macintosh: 
simples e genial 

Antonio Costa e Viktor Bojarczuk 



H a dez anos atras surgju no MIT.um sistema que torna- 
va a operagao do computador extremamente facil e 
confortavel. A coisa que mais chamava a atengdo nes- 
le sistema era o uso de um recurso denominado jane- 
la. As janelas sao basicamente folhas de papel simuladas na 
tela do computador. E, da mesma forma que as folhas, podem 
ser empilhadas, cortadas em pedagos e coladas umas nas 
outras. Varias janelas podem aparecer simultaneamente no vi- 
deo, cada uma contendo itens de informagao proprios. Na 
figura 1 , ha duas janelas, uma chamada Macwrite e a outra 
System Folder. 

A principio, o sistema de janelas so foi usado em LISP e, 
por isso, era invariavelmente associado a esta linguagem. 
Foi, entao, que pesquisadores da Xerox decidiram implemen- 
tar um ambiente de programagao idealizado por Alan Kay e 
denominado Smalltalk Os cientistas da Xerox nao so adota- 
ram as janelas, mas as aperfeigoaram, criando os icons,. Os icons 
sSo pequenas iiguras que representam objetos do dia-a-dia. 
Ha icons com forma de tesoura, vidro de cola, lata de lixo, la- 
pis, pincel, borracha etc. Todos eles podem ser postos no 
video, manipulados por um dispositivo chamado mouse e usa- 
dos como se fossem os objetos cujas formas imitam. Assim, 




Figura / 




Na foto, o 
mouse i a 
caixinha 
que a 
menina 
segura na 
mao 
direita 



pode-se usar o icon do pincel para fazer o desenho e odogalao 
de. tinta para cobri-lo. Quando um arquivo torna-se desneces- 
sario, ele e jogado na lata de lixo. 

Os icons tornaram a utilizagao do computador tSo simples 
quanto a de utensilios domesticos. Qualquer pessoa que sou- 
besse para que serve um lapis, uma borracha ou um galao de 
tinta poderia fazer um desenho por computador. Era suficiente 
conhecer o uso de fichas, pastas e tesouras para trabalhar com ar- 
quivos. £, porem.estranho que taopoderosa ferramentasd esti- 
vesse dispom'vel para quern menos precisava dela: os homens e 
mulheres que programavam Inteligencia Artificial em LISP. Os 
programadores eventuais, as secretarias que necessitavam de 
um editor de textos e os garotos que estavam dando os primei- 
ros passos em computa^o so dispunham de sistemas operacio- 
nais dificeis como CP/M, MS-DOS, TRS-DOS, UNIX, APPLE- 
DOS etc. Era como dar uma cadeira de rodas para o corredor 
de maratona e deixar o paralitico andar a pc. Foi, entao, que a 
Apple lan 90 u o Macintosh, uma maquina pessoal com icons e 
janelas. 

A configura$ao minima do Macintosh vem com 128 Kb de 
memoria, um acionador para disquetes de 400 Kb e uma inter- 
face de comunicagao serial. £ aconselhavel, porem, n§o com- 
prar esta configuragao, pois ela e insuficiente para a perfeita 
utilizagao de varios aplicativos interessantes. 
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0 Macintosh padrSo vem com 512 Kb de memoria. Isto e 
o bastante para que qualquer pacote de software apresente urn 
desempenho satisfatorio. Recentemente, a Apple langou o 
Mac Plus. Esta versao do Macintosh tem um megabyte de me- 
moria, possui acionador para disquetes com 800 Kb de capaci- 
dade e um teclado maior. Ha a op$ao de transformar o Macin- 
tosh padrao em Mac Plus pela substitui^ao da placa mae. 

IBM PC X MACINTOSH 

Muita gente afirma que o Macintosh possui menos software 
do que o IBM-PC. De fato, a quantidade de tftulos para o 
Macintosh e menor. Isto se deve, em parte, ao fato de haver 
muita redundancia na programoteca do IBM, na qual constam 
dezenas de bases de dados, diizias de processadores de texto, 
oito sistemas operacionais etc. Na programoteca do Macintosh 
raramente ha mais de um titulo para cada aplicafao, mas sem- 
pre se encontra pelo menos um. 

Dizia um poeta grego que a raposa sabe mil truques enquan- 
to o porco espinho s6 conhece um. 0 do porco espinho, po- 
rem, e bom e funciona sempre. E de quando em quando todos os 
truques da raposa falham. £ diffcil resistir k tenta?ao de comparar 
o Macintosh ao porco espinho, e um exemplo mostrar^ por 
que. Os autores deste artigo interessam-se por Inteligencia 
Artificial, ciencia que usa a linguagem LISP. 0 PC possui 17 
veirsdes diferentes desta linguagem. Nenhuma presta. Ja o 
Macintosh possui um unico LISP, o qual e muito bom e per- 
mite, entre outras coisas, a cria 9 ao e animafao de sofisticados 
graficos tridimensionais. 

Se o IBM-PC perde para o Macintosh na qualidade de soft- 
ware, ganha na facilidade com que permite interfacear equipa- 
mentos de medida e de controle, pois expandir o Macintosh 
n§o d tarefa elementar. 



EDITORES 

Para dar uma ideia de quao poderoso e pratico 6 o soft- 
ware do Macintosh, vamos descrever sucintamente os dois apli- 
cativos que acompanham a maquina: o MacPaint e o Mac- 
Write. Citaremos tambem o Fontastic, um software que pode 
ser adquirido a parte. 

MacPaint 6 um editor grafico e MacWrite um editor de tex- 
tos. Ambos s5o dirigidos por menus. Alguns destes menus sSo: 
Menu Font - os caracteres no Macintosh s5o organizados em 
blocos de 220 simbolos armazenados em disquete num arquivo 
chamado System e acessados pelo menu Font. O disquete do 
MacWrite vem normalmente com blocos que implementam os 
seguintes estilos de caligrafia: Chicago, Geneva, New York, 
Monaco, Venice, London e Athenas. No entanto, existem no 
mercado disquetes que contem uma grande quantidade de blo- 
cos de caracteres guardados em arquivos chamados Fonte e 
que podem ser transferidos para System com o auxilio do 
FontMover (veja a figura 1). Alem disto, ha um software 
chamado Fontastic que permite alterar os caracteres existentes 
bem como criar outros. O resultado disto tudo 6 que se torna 
possfvel escrever em alfabeto russo (cirflico), grego, hebraico, 
arabe, coreano etc. 

Menu Style - o menu Style possui duas op^oes, a saber: 

a) Tamanho — um bloco de caracteres e criado com dimen- 
soes determinadas. E, no entanto, possi'vel alterar as dimensOes 
de um carater, dentro de uma escala que vai de 9 a 24 no 
MacWrite e de 8 a 72 no MacPaint; 

b) Estilo - alem de variar as dimens6es dos caracteres, o 
Macintosh modifica automaticamente o estilo. Em MacPaint, 
os estilos possiveis sao: Plain Text (Natural), Bold (Negrito), 
Italic (Italico), Underline (Sublinhado), Outline (Gordinho) e 
Shadow (Sombreado) (veja a figura 2). Em MacWrite, encon- 
tramos, alem destes. Superscript e Subscript. Com o auxilio 
destes ultimos e possfvel escrever expressoes do tipo A x -v, e 
H 2 0. Ja expressoes do tipo A^ ficam com aspecto um tanto 
deselegante. Por exemplo: 



ro SITES 1 ESTILOS 

MANHATTAN PLAIfl 

HOILVWOOD p. 

TOROT1TO BOLD 


BflN PrHnCIb[0 

CREEnBRV 


ITALIC 
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U n D E R L I DE 


CHICHGO 


OUTLinE 


xenmn 

RDV ICZ 
MONACO 


SHADOW 
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Com o MacPaint, as expressdes sao limitadas apenas pela 
resolu^ao grafica da tela. Assim, torna-se possfvel escrever: 



x 

/ S(t) dt 
x 

□ 



CD 




K=0 



X„> 



k + ) 



Menu Edit — o menu Edit do MacWrite oferece os seguintes 
recursos: 

a) Undo Typing - este recurso permite anular a ultima opera- 
930 realizada. Assim, por exemplo, se voce inadvertidamente 
apagar algumas linhas do seu texto, podera recupera-las via 
Undo Typing; 

b) Cut - com o mouse, pode-se marcar um trecho do texto e, 
utilizando o comando Cut, elimina-lo. O trecho eliminado nSo 
e destrufdo, mas guardado numa regi5o da memdria chamada 
Clipboard; 

c) Show Clipboard - este recurso permite examinar o Clip- 
board. Cuidado, por^m! Quando se guarda alguma coisa no 
Clipboard, o conteiido anterior e destrufdo; 

d) Copy - este recurso serve para copiar no Clipboard uma re- 
gi5o do texto selecionada via mouse; 

e) Paste — paste permite inserir-se no texto, num local indica- 
do pelo cursor, o conteudo do Clipboard. 

Com os recursos acima descritos, 6 possfvel rearranjar pala- 
vras, sentem;as, paragrafos etc, dentro de um texto. 

Associando o Clipboard a uma janela chamada Scrapbook, 
pode-se inserir e retirar figuras do texto. Para tanto, basta 
abrir o menu que aparece a esquerda do video (aquele com a 
maija na figura 1 ) e ativar o item Scrapbook. Com o comando 
Copy ou Cut, a imagem que aparece no Scrapbook e transferi- 
da para o Clipboard. Transfere-se, em seguida, o Clipboard 
para o texto. Ja no texto, € possfvel aumentar, diminuir, esti- 
car ou alongar a figura. 

Menu Search - Oferece as seguintes op9<5es: 

a) Find — este recursos permite encontrar uma palavra ou par- 
te de uma palavra no meio do texto. A palavra aparece no tex- 
to evidenciada com um fundo preto; 

b) Change — este recurso permite encontrar no texto a primei- 
,ra posi 9 ao de uma palavra ou sequencia de palavras preestabe- 
lecida e em seguida substitui-la por uma outra palavra ou 
sequencia de palavras escolhida. E possfvel de uma so vez 
trocar-se uma palavra por outra em todas as pos^Ses em que a 
palavra inicial aparece. Assim, por exemplo, uma mesma carta 
que deve ser enviada para diversas pessoas pode ser escrita com 
o nome da primeira e em seguida substitui-se o nome desta 
pelo das demais em cada nova copia. 

Tanto Find quanto Change podem ser aplicados sucessiva- 
mente de modo a determinar as pos^Qes consecutivas de uma 
dada palavra. 
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Figura 3 



Figura 4 




Alem destas caractcristicas, MacWrite possui obviamente 
todos os recursos de uma maquina de escrever comum: tabula- 
dores, marginadores e espa 9 adores. Tem-se tambem os alinha- 
dores que permitem que o texto fique alinhado somente a es- 
querda, somente a direita ou ambos simultaneamente Todas 
estas operates sao realizadas com o auxilio do mouse e de 
uma regua que surge no topo de qualqucr documento Mac- 
Write. 

Passemos agora ao MacPaint. Nas figuras 3 e 4 vemos a 
tela do Macintosh rodando o aplicativo MacPaint. A figura 
de David, que agora aparece, foi retirada do aplicativo Click- 
Art. Os objetos que aparecem nas janelinhas da coluna da es- 
querda podem ser selecionados com o mouse e com eles pode- 
se executar as operates que estes objetos sugerem. Assim, 
com o “lapis” podemos desenhar, com a “borracha” podemos 



Figura 5 

apagar etc. Tra 5 ada uma curva fechada, seu interior pode ser 
preenchido com urn padr5o qualquer a ser escolhido, entre os 
padrbes que aparecem na parte inferior do video. Para tanto, 
basta levar o “balde de tinta” no interior da regiao limitada e 
“despejar” a tinta. Outros recursos permitem o traijado de re- 
tas, retangulos, elipses etc. £ possivel delimitar regibes que 
podem ser arrastadas para outras areas da tela ou entio trans- 
feridas para o Clipboard e dai para o Scrapbook, de onde 
poderao passar para um documento criado por MacWrite ou 
passado para outro aplicativo qualquer. Assim, e possivel criar 
desenhos em MacPaint que poderao ser animados por um pro- 
grama BASIC. 

Como a janela de trabalho do MacPaint que aparece no vi- 
deo 6 bem menor do que o desenho que pode ser feito, pode- 
mos deslocar a pagina com o auxilio da m2o, de modo que a 
tela atinja qualquer regiSo desejada. Apertando duas vezes o 
botao do mouse, surge na tela, conforme mostra a figura 5, o 
desenho inteiro reduzido. O retangulo pontilhado que aparece 
no desenho indica a regiao da tela exibida por ultimo. 

■ 
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INPUT e o mais complete* e moderno 
curso de programagao e utilizagao de 
microcomputadores ja langado no Brasil, 
abrangendo as 7 principals linhas de 
microcomputadores existentes. 

Voce nao aprende apenas teoria. 

Ja no primeiro fasciculo comega a programar 
Seu micro vai render o m^ximo, pois os 
fasciculos estao programados para que seus 
conhecimentos aumentem a cada edigao. 



Colecione e veja como ganhar 
10 micros HOT BIT HB 8000 - SHAnr 

Sorteios pela Loteria Federal 
2 chances de ganhar 




ky 

\ E MAIS: 

INPUT resolve as duvidas 
e ensina varios truques, nas 
> sec6es MICRO-DICAS e 
/ PERGUNTAS E RESPOSTAS 
durante todo o curso. 



Fasciculo semanal. 
Apenas Cz$ 20,00 
J^nasbancas ™ 

Colecione INPUT. 

Seu micro 
ganha vida. 




AMicradigital. 
lanpa no Brasil 
o micro pessoal 
demaiorsucesso 
nomunda 

A partir de agora a historia dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

0 TK 90X e. simplesmente, o umco 
micro pessoal lancado no Brasil que 
merece a classificacao de "software 
machine”: urn caso raro de micro que 
pela sua facilidade de uso, grandes 




recursos e prepo acessivd recebeu a 
atencao dos criadores de programas e 
perifericos em todo o mundo. 

Para voc§ ter uma ideia, existem 
mais de 2 mil programas, 70 
livros, 30 perifericos e inumeras 



revistas de usuarios disponiveis para ele 
internacionalmente. 

E aqui o TK 90X ia sai com mais de 
100 programas, enquanto outros estao 
em fase final de desenvolvimento para 
the dar mais opcoes para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tern duas versoes de 
memoria (de 16 ou 48 K), imagem de 
alta resolucao grdica com 8 cores, 
carregamento rapido de programas 
(controlavel pelo proprio monitor}, som 
pela TV, letras mauisculas e minusculas 
e ainda uma exclusividade: acentuacao 
em portugues. 

Faca o seu programa: peca uma 
demonstracao do novo TK 90X. 

AHCRODIGI14L 




FHi.ida a AWCO?.'r 







